bin: check: fix weird hashbang error (#1072)

Hashbangs and CPP on mac don't mix well.
https://gitlab.haskell.org/ghc/ghc/issues/6132

[ci skip]
This commit is contained in:
Simon Michael 2019-07-16 23:59:27 +01:00
parent 45bb513eb8
commit a5cae2a859

View File

@ -1,5 +1,6 @@
#!/usr/bin/env stack #!/usr/bin/env stack
{- stack runghc --verbosity info {- stack runghc --verbosity info
--package base-compat
--package filepath --package filepath
--package hledger-lib --package hledger-lib
--package optparse-applicative --package optparse-applicative
@ -76,7 +77,8 @@ hledger-check "(assets:overdraft < £2000) ==> (*assets:checking == £0)"
"If I have taken money from my overdraft, then I must have no money in "If I have taken money from my overdraft, then I must have no money in
my checking account (including subaccounts)." my checking account (including subaccounts)."
-} -}
{-# LANGUAGE CPP #-}
{-# LANGUAGE PackageImports #-}
module Main where module Main where
@ -90,9 +92,6 @@ import Data.Functor.Identity (Identity(..))
import Data.List (foldl', groupBy, intercalate, nub, sortOn) import Data.List (foldl', groupBy, intercalate, nub, sortOn)
import Data.List.NonEmpty (NonEmpty(..), nonEmpty, toList) import Data.List.NonEmpty (NonEmpty(..), nonEmpty, toList)
import Data.Maybe (fromMaybe, mapMaybe) import Data.Maybe (fromMaybe, mapMaybe)
#if !(MIN_VERSION_base(4,11,0))
import Data.Monoid ((<>))
#endif
import Data.Time.Calendar (toGregorian) import Data.Time.Calendar (toGregorian)
import Data.Time.Calendar.OrdinalDate (mondayStartWeek, sundayStartWeek, toOrdinalDate) import Data.Time.Calendar.OrdinalDate (mondayStartWeek, sundayStartWeek, toOrdinalDate)
import Data.Text (isPrefixOf, pack, unpack) import Data.Text (isPrefixOf, pack, unpack)
@ -101,6 +100,7 @@ import qualified Hledger.Query as H
import qualified Hledger.Read as H import qualified Hledger.Read as H
import qualified Hledger.Utils.Parse as H import qualified Hledger.Utils.Parse as H
import Options.Applicative import Options.Applicative
import "base-compat" Prelude.Compat ((<>))
import System.Exit (exitFailure) import System.Exit (exitFailure)
import System.FilePath (FilePath) import System.FilePath (FilePath)
import qualified Text.Megaparsec as P import qualified Text.Megaparsec as P