Fix a warning

commercialhaskell · Feb 10, 2017 · ec4ecca · ec4ecca
1 parent 017b44c
commit ec4ecca
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Stack/Config.hs b/src/Stack/Config.hs
@@ -648,11 +648,11 @@ resolvePackageLocation menv projRoot (PLRemote url remotePackageType) = do
         -- TODO: dedupe with code for snapshot hash?
         name = T.unpack $ decodeUtf8 $ S.take 12 $ B64URL.encode $ SHA256.hash $ encodeUtf8 nameBeforeHashing
         root = projRoot </> workDir </> $(mkRelDir "downloaded")
-        fileExtension = case remotePackageType of
+        fileExtension' = case remotePackageType of
             RPTHttp -> ".http-archive"
             _       -> ".unused"
 
-    fileRel <- parseRelFile $ name ++ fileExtension
+    fileRel <- parseRelFile $ name ++ fileExtension'
     dirRel <- parseRelDir name
     dirRelTmp <- parseRelDir $ name ++ ".tmp"
     let file = root </> fileRel