From 87ae152b71317b99bcbeeab80145ae1f3cf22d83 Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Sat, 20 Aug 2016 15:54:43 +0300
Subject: fix HLint warnings

---
 src/Windows/Registry.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Windows/Registry.hs b/src/Windows/Registry.hs
index a8504d6..6661177 100644
--- a/src/Windows/Registry.hs
+++ b/src/Windows/Registry.hs
@@ -25,6 +25,7 @@ module Windows.Registry
     , setString
     ) where
 
+import Control.Monad         (unless)
 import Data.List             (intercalate)
 import Data.List.Split       (splitOn)
 import Foreign.ForeignPtr    (withForeignPtr)
@@ -76,7 +77,7 @@ raiseDoesNotExistError functionName =
     ioError $ mkIOError doesNotExistErrorType functionName Nothing Nothing
 
 raiseUnknownError :: String -> WinAPI.ErrCode -> IO a
-raiseUnknownError functionName exitCode = WinAPI.failWith functionName exitCode
+raiseUnknownError = WinAPI.failWith
 
 exitCodeSuccess :: WinAPI.ErrCode
 exitCodeSuccess = 0
@@ -94,9 +95,8 @@ delValue keyHandle valueName =
     withForeignPtr keyHandle $ \keyPtr ->
     WinAPI.withTString valueName $ \valueNamePtr -> do
         ret <- WinAPI.c_RegDeleteValue keyPtr valueNamePtr
-        if ret == exitCodeSuccess
-            then return ()
-            else raiseError "RegDeleteValue" ret
+        unless (ret == exitCodeSuccess) $
+            raiseError "RegDeleteValue" ret
 
 type ValueType = WinAPI.RegValueType
 
-- 
cgit v1.2.3