bug fix for "type".

2010-11-15 12:14:38 +09:00 · 2010-11-15 12:14:38 +09:00 · 537d825668
parent 8760f6b714
commit 537d825668
1 changed files with 2 additions and 2 deletions
--- a/Info.hs
+++ b/Info.hs
@ -18,7 +18,7 @@ typeOf fileName expr = withGHC $ do
    pretty <$> exprType expr
  where
    setContextFromTarget = do
-        [mdlsum,_] <- depanal [] False
-        mdl <- findModule (ms_mod_name mdlsum) Nothing
+        ms <- depanal [] False
+        mdl <- findModule (ms_mod_name (head ms)) Nothing
        setContext [mdl] []
    pretty = showSDocForUser neverQualify . pprTypeForUser False