Merge pull request #341 from RubenAstudillo/master

browseIt with modified environment to solve #265
This commit is contained in:
Kazu Yamamoto 2014-08-29 11:00:03 +09:00
commit 965f954d91

View File

@ -313,5 +313,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 }