From bcdfea8654acf58c12b56e255c95836b207e938c Mon Sep 17 00:00:00 2001
From: Gurkenglas <gurkenglas@hotmail.de>
Date: Sat, 6 Aug 2016 23:31:27 +0200
Subject: [PATCH] Factor out a return
---
src/Language/Haskell/Brittany.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/Language/Haskell/Brittany.hs b/src/Language/Haskell/Brittany.hs
index e3e0261..7765c75 100644
--- a/src/Language/Haskell/Brittany.hs
+++ b/src/Language/Haskell/Brittany.hs
@@ -107,11 +107,11 @@ parsePrintModule
parsePrintModule conf filename input = do
let inputStr = Text.unpack input
parseResult <- ExactPrint.Parsers.parseModuleFromString filename inputStr
- case parseResult of
- Left (_, s) -> return $ Left $ "parsing error: " ++ s
+ return $ case parseResult of
+ Left (_, s) -> Left $ "parsing error: " ++ s
Right (anns, parsedModule) ->
let (errs, ltext) = pPrintModule conf anns parsedModule
- in return $ if null errs
+ in if null errs
then Right $ TextL.toStrict $ ltext
else
let errStrs = errs <&> \case
@@ -271,4 +271,4 @@ _bindHead :: HsBind RdrName -> String
_bindHead = \case
FunBind fId _ _ _ [] -> "FunBind " ++ (Text.unpack $ lrdrNameToText $ fId)
PatBind _pat _ _ _ ([], []) -> "PatBind smth"
- _ -> "unknown bind"
\ No newline at end of file
+ _ -> "unknown bind"
--
2.30.2