From 97c2c62c310d85e05c87b50703f88769b7ddaf12 Mon Sep 17 00:00:00 2001 From: mvoidex Date: Mon, 18 Nov 2013 18:22:49 +0400 Subject: [PATCH] Local function rewritten to use justIf --- Language/Haskell/GhcMod/Browse.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Language/Haskell/GhcMod/Browse.hs b/Language/Haskell/GhcMod/Browse.hs index 8550e64..5e8cf98 100644 --- a/Language/Haskell/GhcMod/Browse.hs +++ b/Language/Haskell/GhcMod/Browse.hs @@ -55,9 +55,7 @@ showExport opt minfo e = do mtype' <- mtype return $ concat $ catMaybes [mqualified, Just $ formatOp $ getOccString e, mtype'] where - mqualified - | qualified opt = Just $ moduleNameString (moduleName $ nameModule e) ++ "." - | otherwise = Nothing + mqualified = (moduleNameString (moduleName $ nameModule e) ++ ".") `justIf` qualified opt mtype | detailed opt = do tyInfo <- modInfoLookupName minfo e