slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Simon Michael 2020-09-29 16:56:04 -07:00
parent 1cd2995c77
commit 9dad59b0cc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-ui/Hledger/UI/Editor.hs
View File

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