hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Factor out a return #1

Merged
Gurkenglas merged 1 commits from patch-1 into master 2016-08-06 23:37:15 +02:00
Conversation 0 Commits 1 Files Changed 1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Language/Haskell/Brittany.hs
View File

@ -107,11 +107,11 @@ parsePrintModule
parsePrintModule conf filename input = do parsePrintModule conf filename input = do
let inputStr = Text.unpack input let inputStr = Text.unpack input
parseResult <- ExactPrint.Parsers.parseModuleFromString filename inputStr parseResult <- ExactPrint.Parsers.parseModuleFromString filename inputStr
case parseResult of return $ case parseResult of
Left (_, s) -> return $ Left $ "parsing error: " ++ s Left (_, s) -> Left $ "parsing error: " ++ s
Right (anns, parsedModule) -> Right (anns, parsedModule) ->
let (errs, ltext) = pPrintModule conf anns parsedModule let (errs, ltext) = pPrintModule conf anns parsedModule
in return $ if null errs in if null errs
then Right $ TextL.toStrict $ ltext then Right $ TextL.toStrict $ ltext
else else
let errStrs = errs <&> \case let errStrs = errs <&> \case
@ -271,4 +271,4 @@ _bindHead :: HsBind RdrName -> String
_bindHead = \case _bindHead = \case
FunBind fId _ _ _ [] -> "FunBind " ++ (Text.unpack $ lrdrNameToText $ fId) FunBind fId _ _ _ [] -> "FunBind " ++ (Text.unpack $ lrdrNameToText $ fId)
PatBind _pat _ _ _ ([], []) -> "PatBind smth" PatBind _pat _ _ _ ([], []) -> "PatBind smth"
_ -> "unknown bind" _ -> "unknown bind"