hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Local function rewritten to use justIf

Browse Source
This commit is contained in:
mvoidex 2013-11-18 18:22:49 +04:00
parent 444dd225e1
commit 97c2c62c31
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/Browse.hs
View File

@ -55,9 +55,7 @@ showExport opt minfo e = do
mtype' <- mtype mtype' <- mtype
return $ concat $ catMaybes [mqualified, Just $ formatOp $ getOccString e, mtype'] return $ concat $ catMaybes [mqualified, Just $ formatOp $ getOccString e, mtype']
where where
mqualified mqualified = (moduleNameString (moduleName $ nameModule e) ++ ".") `justIf` qualified opt
| qualified opt = Just $ moduleNameString (moduleName $ nameModule e) ++ "."
| otherwise = Nothing
mtype mtype
| detailed opt = do | detailed opt = do
tyInfo <- modInfoLookupName minfo e tyInfo <- modInfoLookupName minfo e