diff options
| author | Andreas Källberg <anka.213@gmail.com> | 2021-06-16 14:54:36 +0800 |
|---|---|---|
| committer | Andreas Källberg <anka.213@gmail.com> | 2021-06-16 14:54:36 +0800 |
| commit | 2c37e7dfad66bbfb13cef87fdcef479ce9fd9e93 (patch) | |
| tree | 0173f745d9ddf216700cbb53bef66ac885920991 /src/compiler/GF/Command/Commands.hs | |
| parent | f505d88a8e9e664c90acc98a9cf9ec7d68a1f4f4 (diff) | |
Fix build for ghc-7.10.3
Diffstat (limited to 'src/compiler/GF/Command/Commands.hs')
| -rw-r--r-- | src/compiler/GF/Command/Commands.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs index 48d8cb85a..2f2e802e0 100644 --- a/src/compiler/GF/Command/Commands.hs +++ b/src/compiler/GF/Command/Commands.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE FlexibleInstances, UndecidableInstances #-} +{-# LANGUAGE FlexibleInstances, UndecidableInstances, CPP #-} module GF.Command.Commands ( PGFEnv,HasPGFEnv(..),pgf,mos,pgfEnv,pgfCommands, options,flags, @@ -1019,3 +1019,7 @@ stanzas = map unlines . chop . lines where chop ls = case break (=="") ls of (ls1,[]) -> [ls1] (ls1,_:ls2) -> ls1 : chop ls2 + +#if !(MIN_VERSION_base(4,9,0)) +errorWithoutStackTrace = error +#endif
\ No newline at end of file |