From 87600e5dd3dcad5d6caddde94920509596635945 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 4 Jan 2024 13:50:37 -1000
Subject: [PATCH] fix:add: apply the D default commodity to bare numbers, per
 docs, 2 [#815]

Avoid breaking GHC < 9.8.
---
 hledger/Hledger/Cli/Script.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/hledger/Hledger/Cli/Script.hs b/hledger/Hledger/Cli/Script.hs
index 3745e9737..8883c0f8e 100644
--- a/hledger/Hledger/Cli/Script.hs
+++ b/hledger/Hledger/Cli/Script.hs
@@ -3,6 +3,7 @@ A convenient module to import in hledger scripts,
 aiming to provide the most useful imports and reduce boilerplate.
 |-}
 
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE PackageImports #-}
 
 module Hledger.Cli.Script 
@@ -15,7 +16,13 @@ import Control.Concurrent as M
 import Control.Monad as M
 import Data.Char as M
 import Data.Either as M
-import Data.Functor as M hiding (unzip)
+
+import Data.Functor as M
+#if MIN_VERSION_base(4,19,0)
+  hiding (unzip)
+#endif
+-- import Data.Functor as M (Functor, fmap, (<$), ($>), (<$>), (<&>))  -- or without CPP ? redundant import warning
+
 import Data.List as M
 import Data.Maybe as M
 import Data.Ord as M