Delete hack that was once needed to fix the build
authorThomas Miedema <thomasmiedema@gmail.com>
Fri, 26 Sep 2014 04:10:33 +0000 (23:10 -0500)
committerAustin Seipp <austin@well-typed.com>
Fri, 26 Sep 2014 04:10:33 +0000 (23:10 -0500)
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

compiler/nativeGen/RegAlloc/Graph/Spill.hs
compiler/nativeGen/RegAlloc/Liveness.hs
compiler/utils/State.hs

index 543db11..802046c 100644 (file)
@@ -13,6 +13,7 @@ import Reg
 import Cmm hiding (RegSet)
 import BlockId
 
+import MonadUtils
 import State
 import Unique
 import UniqFM
index d7fd8bd..167197d 100644 (file)
@@ -44,6 +44,7 @@ import PprCmm()
 
 import Digraph
 import DynFlags
+import MonadUtils
 import Outputable
 import Platform
 import UniqSet
index 216034f..7346841 100644 (file)
@@ -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 #) }