aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/src/WindowsEnv
diff options
context:
space:
mode:
authorEgor Tensin <Egor.Tensin@gmail.com>2017-06-13 06:26:05 +0300
committerEgor Tensin <Egor.Tensin@gmail.com>2017-06-13 06:26:05 +0300
commit32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7 (patch)
treefc3551d1849ab3204797c36926c89832f72374db /src/WindowsEnv
parentaddpath: detect expandable paths (diff)
downloadwindows-env-32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7.tar.gz
windows-env-32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7.zip
fix HLint warnings
Diffstat (limited to '')
-rw-r--r--src/WindowsEnv/Environment.hs2
1 files changed, 1 insertions, 1 deletions
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