From 6608dce71eedc2d228ff191bf18bde0dda48ceb1 Mon Sep 17 00:00:00 2001
From: Romain Edelmann <romain.edelmann@gmail.com>
Date: Fri, 9 Aug 2013 17:29:44 +0200
Subject: [PATCH] Minor code quality changes.

---
 src/Scat.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Scat.hs b/src/Scat.hs
index 44c84a9..f6307df 100644
--- a/src/Scat.hs
+++ b/src/Scat.hs
@@ -71,7 +71,7 @@ getPassword = do
     getPassConfirm = do
         a <- askPassword "Password: "
         b <- askPassword "Confirm: "
-        if (a == b)
+        if a == b
             then return a
             else do
                 printVerbose "Passwords do not match, please retry.\n"
@@ -81,7 +81,7 @@ askPassword :: String -> Scat C.ByteString
 askPassword str = do
     printVerbose str
     old <- liftIO $ hGetEcho stdin
-    pw <- liftIO $ bracket_ 
+    pw <- liftIO $ bracket_
         (hSetEcho stdin False)
         (hSetEcho stdin old)
         C.getLine