ui: E ignores file extension, should help positioning on windows

This commit is contained in:
Simon Michael 2020-09-29 16:56:04 -07:00
parent 1cd2995c77
commit 9dad59b0cc

View File

@ -84,7 +84,7 @@ editFileAtPositionCommand :: Maybe TextPosition -> FilePath -> IO String
editFileAtPositionCommand mpos f = do
cmd <- getEditCommand
let
editor = lowercase $ takeFileName $ headDef "" $ words' cmd
editor = lowercase $ takeBaseName $ headDef "" $ words' cmd
f' = singleQuoteIfNeeded f
ml = show.fst <$> mpos
mc = maybe Nothing (fmap show.snd) mpos :: Maybe String