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"