[project @ 1996-04-25 16:31:20 by partain]

[ghc-hetmet.git] / ghc / compiler / parser / UgenUtil.lhs

diff --git a/ghc/compiler/parser/UgenUtil.lhs b/ghc/compiler/parser/UgenUtil.lhs
index 9244022..860c33b 100644 (file)
--- a/ghc/compiler/parser/UgenUtil.lhs
+++ b/ghc/compiler/parser/UgenUtil.lhs
@@ -16,7 +16,6 @@ import PreludeGlaST
 
 import Ubiq
 
-import MainMonad       ( MainIO(..) )          
 import Name            ( RdrName(..) )
 import SrcLoc          ( mkSrcLoc2, mkUnknownSrcLoc )
 \end{code}
@@ -35,7 +34,7 @@ thenUgn x y stuff
   = x stuff    `thenPrimIO` \ z ->
     y z stuff
 
-initUgn :: UgnM a -> MainIO a
+initUgn :: UgnM a -> IO a
 initUgn action
   = action (SLIT(""),SLIT(""),mkUnknownSrcLoc) `thenPrimIO` \ result ->
     return result