From 235cb3d8e2e530bdf4d7a48b9ee1d4d117e879e3 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 17 May 2024 14:40:20 -1000
Subject: [PATCH] fix:pkg: fix a build error with ghc 8.10 [#2198]

---
 hledger/Hledger/Cli/CliOptions.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger/Hledger/Cli/CliOptions.hs b/hledger/Hledger/Cli/CliOptions.hs
index 80a0d5d06..5c9b283db 100644
--- a/hledger/Hledger/Cli/CliOptions.hs
+++ b/hledger/Hledger/Cli/CliOptions.hs
@@ -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