mirror of
https://github.com/simonmichael/hledger.git
synced 2024-09-18 17:57:11 +03:00
fix:pkg: fix a build error with ghc 8.10 [#2198]
This commit is contained in:
parent
fbd7b7d3f2
commit
235cb3d8e2
@ -82,7 +82,7 @@ import Data.Char
|
||||
import Data.Default
|
||||
import Data.Either (fromRight, isRight)
|
||||
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.Maybe
|
||||
--import Data.String.Here
|
||||
@ -639,7 +639,7 @@ journalFilePathFromOpts opts = do
|
||||
f <- defaultJournalPath
|
||||
d <- getCurrentDirectory
|
||||
maybe
|
||||
(return $ NE.singleton f)
|
||||
(return $ NE.fromList [f])
|
||||
(mapM (expandPathPreservingPrefix d))
|
||||
$ NE.nonEmpty $ file_ opts
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user