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

fix:pkg: fix a build error with ghc 8.10 [#2198]

Browse Source
This commit is contained in:
Simon Michael 2024-05-17 14:40:20 -10:00
parent fbd7b7d3f2
commit 235cb3d8e2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/CliOptions.hs
View File

@ -82,7 +82,7 @@ import Data.Char
import Data.Default import Data.Default
import Data.Either (fromRight, isRight) import Data.Either (fromRight, isRight)
import Data.List.Extra (groupSortOn, intercalate, isInfixOf, nubSort) import Data.List.Extra (groupSortOn, intercalate, isInfixOf, nubSort)
import qualified Data.List.NonEmpty as NE (NonEmpty, fromList, head, nonEmpty, singleton) import qualified Data.List.NonEmpty as NE (NonEmpty, fromList, head, nonEmpty)
import Data.List.Split (splitOn) import Data.List.Split (splitOn)
import Data.Maybe import Data.Maybe
--import Data.String.Here --import Data.String.Here
@ -639,7 +639,7 @@ journalFilePathFromOpts opts = do
f <- defaultJournalPath f <- defaultJournalPath
d <- getCurrentDirectory d <- getCurrentDirectory
maybe maybe
(return $ NE.singleton f) (return $ NE.fromList [f])
(mapM (expandPathPreservingPrefix d)) (mapM (expandPathPreservingPrefix d))
$ NE.nonEmpty $ file_ opts $ NE.nonEmpty $ file_ opts