Merge pull request #341 from RubenAstudillo/master
browseIt with modified environment to solve #265
This commit is contained in:
commit
965f954d91
@ -313,5 +313,11 @@ browseIt :: IOish m
|
|||||||
-> ModuleString
|
-> ModuleString
|
||||||
-> GhcModT m (String, Bool, Set FilePath)
|
-> GhcModT m (String, Bool, Set FilePath)
|
||||||
browseIt set mdl = do
|
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)
|
return (ret, True, set)
|
||||||
|
where
|
||||||
|
setDetailed opt = opt { detailed = True }
|
||||||
|
Loading…
Reference in New Issue
Block a user