hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bug fix for "type".

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-11-15 12:14:38 +09:00
parent 8760f6b714
commit 537d825668
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Info.hs
View File

@ -18,7 +18,7 @@ typeOf fileName expr = withGHC $ do
pretty <$> exprType expr pretty <$> exprType expr
where where
setContextFromTarget = do setContextFromTarget = do
[mdlsum,_] <- depanal [] False ms <- depanal [] False
mdl <- findModule (ms_mod_name mdlsum) Nothing mdl <- findModule (ms_mod_name (head ms)) Nothing
setContext [mdl] [] setContext [mdl] []
pretty = showSDocForUser neverQualify . pprTypeForUser False pretty = showSDocForUser neverQualify . pprTypeForUser False