-l for ghc-modi info.

2014-04-21 09:45:41 +09:00
parent e09b406ee8
commit 756d17eaa2
2 changed files with 7 additions and 6 deletions
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@@ -256,9 +256,9 @@ showInfo :: Options
 showInfo opt set ls readLog fileArg = do
    let [file, expr] = words fileArg
    (_, _, set') <- checkStx opt set ls readLog file
-    msgs <- info file expr -- fixme
+    ret <- info opt file expr
    _ <- liftIO readLog
-    return (msgs, True, set') -- fixme
+    return (ret, True, set')

 showType :: Options
         -> Set FilePath