browseIt with modified environment to solve #265

2014-08-23 04:00:40 -04:00 · 2014-08-23 04:00:40 -04:00 · f194b528c8
commit f194b528c8
parent 6cad2b5e90
1 changed files with 7 additions and 1 deletions
--- a/src/GHCModi.hs
+++ b/src/GHCModi.hs
@ -316,5 +316,11 @@ browseIt :: IOish m
         -> ModuleString
         -> GhcModT m (String, Bool, Set FilePath)
 browseIt set mdl = do
-    ret <- browse mdl
+    let (det,rest') = break (== ' ') mdl
+        rest = dropWhile (== ' ') rest'
+    ret <- if det == "-d"
+               then withOptions setDetailed (browse rest)
+               else browse mdl
    return (ret, True, set)
+  where
+    setDetailed opt = opt { detailed = True }