From 2a72fa293a0d9a083c316dc3f5ca4ac8854b44c8 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 8 Oct 2012 21:59:46 +0100 Subject: Follow changes in GHC --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index dedc23dc..94cbad02 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -317,7 +317,7 @@ withGhc libDir flags ghcActs = saveStaticFlagGlobals >>= \savedFlags -> do ghcActs dynflags''' `finally` restoreStaticFlagGlobals savedFlags where - parseGhcFlags :: Monad m => DynFlags -> [Located String] + parseGhcFlags :: MonadIO m => DynFlags -> [Located String] -> [String] -> m DynFlags parseGhcFlags dynflags flags_ origFlags = do -- TODO: handle warnings? -- cgit v1.2.3