From d1a20553e304f5ad26ba614712d95b7d5f42cb6c Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Wed, 24 Oct 2018 12:20:52 -0700 Subject: [PATCH] ui: fix Any build error with GHC < 8.4 --- hledger-ui/Hledger/UI/AccountsScreen.hs | 2 +- hledger-ui/Hledger/UI/RegisterScreen.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-ui/Hledger/UI/AccountsScreen.hs b/hledger-ui/Hledger/UI/AccountsScreen.hs index aa0d04f763a..616d0283963 100644 --- a/hledger-ui/Hledger/UI/AccountsScreen.hs +++ b/hledger-ui/Hledger/UI/AccountsScreen.hs @@ -19,7 +19,7 @@ import Control.Monad.IO.Class (liftIO) import Data.List import Data.Maybe #if !(MIN_VERSION_base(4,11,0)) -import Data.Monoid +import Data.Monoid ((<>)) #endif import qualified Data.Text as T import Data.Time.Calendar (Day, addDays) diff --git a/hledger-ui/Hledger/UI/RegisterScreen.hs b/hledger-ui/Hledger/UI/RegisterScreen.hs index 085448c0b05..6881276f064 100644 --- a/hledger-ui/Hledger/UI/RegisterScreen.hs +++ b/hledger-ui/Hledger/UI/RegisterScreen.hs @@ -16,7 +16,7 @@ import Control.Monad.IO.Class (liftIO) import Data.List import Data.List.Split (splitOn) #if !(MIN_VERSION_base(4,11,0)) -import Data.Monoid +import Data.Monoid ((<>)) #endif import Data.Maybe import qualified Data.Text as T