diff options
| author | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-13 06:26:05 +0300 |
|---|---|---|
| committer | Egor Tensin <Egor.Tensin@gmail.com> | 2017-06-13 06:26:05 +0300 |
| commit | 32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7 (patch) | |
| tree | fc3551d1849ab3204797c36926c89832f72374db /src | |
| parent | addpath: detect expandable paths (diff) | |
| download | windows-env-32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7.tar.gz windows-env-32d9bd8ccdb48162853d9dfa6a81d0412d4fadf7.zip | |
fix HLint warnings
Diffstat (limited to '')
| -rw-r--r-- | src/WindowsEnv/Environment.hs | 2 |
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 |