From 32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7 Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Tue, 13 Jun 2017 06:26:05 +0300
Subject: fix HLint warnings

---
 src/WindowsEnv/Environment.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/WindowsEnv/Environment.hs b/src/WindowsEnv/Environment.hs
index 258a1ae..aa05017 100644
--- a/src/WindowsEnv/Environment.hs
+++ b/src/WindowsEnv/Environment.hs
@@ -113,7 +113,7 @@ expand value = ExceptT $ catchIOError (Right <$> doExpand) (return . Left)
     doExpandIn valuePtr bufferPtr bufferLength = do
         newBufferLength <- WinAPI.failIfZero "ExpandEnvironmentStringsW" $
             c_ExpandEnvironmentStrings valuePtr bufferPtr bufferLength
-        let newBufferSize = (fromIntegral newBufferLength) * sizeOf (undefined :: WinAPI.TCHAR)
+        let newBufferSize = fromIntegral newBufferLength * sizeOf (undefined :: WinAPI.TCHAR)
         if newBufferLength > bufferLength
             then allocaBytes newBufferSize $ \newBufferPtr -> doExpandIn valuePtr newBufferPtr newBufferLength
             else WinAPI.peekTString bufferPtr
-- 
cgit v1.2.3