Redo the global (state) structure of the translator.

[matthijs/master-project/cλash.git] / FlattenTypes.hs

diff --git a/FlattenTypes.hs b/FlattenTypes.hs
index 785704db15f4cca6deec39137d23e14ed8012bb9..f20fbc30f11f0c9bc8ac0379fa63d3b0d7af3c78 100644 (file)
--- a/FlattenTypes.hs
+++ b/FlattenTypes.hs
@@ -3,7 +3,7 @@ module FlattenTypes where
 import qualified Maybe
 import Data.Traversable
 import qualified Data.Foldable as Foldable
-import qualified Control.Monad.State as State
+import qualified Control.Monad.Trans.State as State
 
 import CoreSyn
 import qualified Type