diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2014-09-25 23:10:33 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-09-25 23:10:33 -0500 |
| commit | a7ec061ed3c4373b0b47d6779d2fd259ad712b5e (patch) | |
| tree | 257f2520d07f30f9611d398351cc4503c6c670c0 /compiler/utils/State.hs | |
| parent | dc1fce13633e44c6068eb76fc7ed48e94feb5e32 (diff) | |
| download | haskell-a7ec061ed3c4373b0b47d6779d2fd259ad712b5e.tar.gz | |
Delete hack that was once needed to fix the build
Summary:
Introduced in 6c7b41cc2b24f533697a62bf1843507ae043fc97.
I checked the rest of that commit, and this is all that was left to revert.
Test Plan: x
Reviewers: ezyang, austin
Reviewed By: ezyang, austin
Subscribers: simonmar, ezyang, carter, thomie
Differential Revision: https://phabricator.haskell.org/D241
Diffstat (limited to 'compiler/utils/State.hs')
| -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 #) } |