X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnMonad.lhs;h=3c6c59ee79186525670371d340991b43335838c4;hp=11e6bba76f3e6a1a9d73f731c06e605b897937b5;hb=f59d6c9d6ead47a61681b1086b313c2fad225912;hpb=0ab4d209650b44b019a414a6cefd0f4cbc006ee4 diff --git a/compiler/typecheck/TcRnMonad.lhs b/compiler/typecheck/TcRnMonad.lhs index 11e6bba..3c6c59e 100644 --- a/compiler/typecheck/TcRnMonad.lhs +++ b/compiler/typecheck/TcRnMonad.lhs @@ -646,7 +646,7 @@ checkNoErrs main = do { (msgs, mb_res) <- tryTcLIE main ; addMessages msgs ; case mb_res of - Nothing -> failM + Nothing -> failM Just val -> return val }