browseIt with modified environment to solve #265
This commit is contained in:
parent
5b32667060
commit
bdaa2ec675
@ -316,5 +316,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