fix options breakage with GHC < 7.10
This commit is contained in:
parent
2af8d7598e
commit
f3dd5eb830
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user