fix options breakage with GHC < 7.10

This commit is contained in:
Simon Michael 2015-08-28 11:17:49 -07:00
parent 2af8d7598e
commit f3dd5eb830
4 changed files with 11 additions and 2 deletions

View File

@ -1,4 +1,4 @@
{-# LANGUAGE RecordWildCards, DeriveDataTypeable #-} {-# LANGUAGE CPP, RecordWildCards, DeriveDataTypeable #-}
{-| {-|
Options common to most hledger reports. Options common to most hledger reports.
@ -31,6 +31,9 @@ module Hledger.Reports.ReportOptions (
where where
import Data.Data (Data) import Data.Data (Data)
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.Typeable (Typeable) import Data.Typeable (Typeable)
import Data.Time.Calendar import Data.Time.Calendar
import System.Console.CmdArgs.Default -- some additional default stuff import System.Console.CmdArgs.Default -- some additional default stuff

View File

@ -5,6 +5,9 @@
module Hledger.UI.Options module Hledger.UI.Options
where where
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.List (intercalate) import Data.List (intercalate)
import System.Console.CmdArgs import System.Console.CmdArgs
import System.Console.CmdArgs.Explicit import System.Console.CmdArgs.Explicit

View File

@ -3,7 +3,7 @@ module Hledger.Web.Options
where where
import Prelude import Prelude
#if !MIN_VERSION_base(4,8,0) #if !MIN_VERSION_base(4,8,0)
import Control.Applicative ((<$>)) import Data.Functor.Compat ((<$>))
#endif #endif
import Data.Maybe import Data.Maybe
import System.Console.CmdArgs import System.Console.CmdArgs

View File

@ -64,6 +64,9 @@ import Prelude ()
import Prelude.Compat import Prelude.Compat
import qualified Control.Exception as C import qualified Control.Exception as C
import Control.Monad (when) import Control.Monad (when)
#if !MIN_VERSION_base(4,8,0)
import Data.Functor.Compat ((<$>))
#endif
import Data.List.Compat import Data.List.Compat
import Data.List.Split (splitOneOf) import Data.List.Split (splitOneOf)
import Data.Maybe import Data.Maybe