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

This commit is contained in:
Simon Michael 2024-05-17 14:40:20 -10:00
parent fbd7b7d3f2
commit 235cb3d8e2

View File

@ -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