diff options
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/State.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/utils/State.hs b/compiler/utils/State.hs index 216034fdbf..7346841613 100644 --- a/compiler/utils/State.hs +++ b/compiler/utils/State.hs @@ -1,8 +1,10 @@ -{-# LANGUAGE UnboxedTuples #-} +{-# LANGUAGE UnboxedTuples, CPP #-} -module State (module State, mapAccumLM {- XXX hack -}) where +module State where -import MonadUtils +#if __GLASGOW_HASKELL__ < 709 +import Control.Applicative +#endif newtype State s a = State { runState' :: s -> (# a, s #) } |