use strict copyFile function for hie-x.y binaries

Author: samuelpilz

install/src/Cabal.hs

@@ -6,7 +6,9 @@ import           Development.Shake.FilePath
 import           Control.Monad
 import           Data.Maybe                               ( isNothing )
 import           Control.Monad.Extra                      ( whenMaybe )
-import           System.Directory                         ( findExecutable )
+import           System.Directory                         ( findExecutable
+                                                          , copyFile
+                                                          )
 
 import           Version
 import           Print
@@ -45,10 +47,11 @@ cabalInstallHie versionNumber = do
     , "exe:hie"
     , "--overwrite-policy=always"
     ]
-  copyFile' (localBin </> "hie" <.> exe)
-            (localBin </> "hie-" ++ versionNumber <.> exe)
-  copyFile' (localBin </> "hie" <.> exe)
-            (localBin </> "hie-" ++ dropExtension versionNumber <.> exe)
+  liftIO $ do
+    copyFile (localBin </> "hie" <.> exe)
+             (localBin </> "hie-" ++ versionNumber <.> exe)
+    copyFile (localBin </> "hie" <.> exe)
+             (localBin </> "hie-" ++ dropExtension versionNumber <.> exe)
 
 -- TODO: review
 installCabal :: Action ()

install/src/Stack.hs

@@ -4,6 +4,7 @@ import           Development.Shake
 import           Development.Shake.Command
 import           Development.Shake.FilePath
 import           Control.Monad
+import           System.Directory                         ( copyFile )
 
 import           Version
 import           Print
@@ -18,12 +19,13 @@ stackBuildHie versionNumber = execStackWithGhc_ versionNumber ["build"]
 stackInstallHie :: VersionNumber -> Action ()
 stackInstallHie versionNumber = do
   execStackWithGhc_ versionNumber ["install"]
-  localBinDir      <- getLocalBin
+  localBinDir <- getLocalBin
   let hie = "hie" <.> exe
-  copyFile' (localBinDir </> hie)
-            (localBinDir </> "hie-" ++ versionNumber <.> exe)
-  copyFile' (localBinDir </> hie)
-            (localBinDir </> "hie-" ++ dropExtension versionNumber <.> exe)
+  liftIO $ do
+    copyFile (localBinDir </> hie)
+             (localBinDir </> "hie-" ++ versionNumber <.> exe)
+    copyFile (localBinDir </> hie)
+             (localBinDir </> "hie-" ++ dropExtension versionNumber <.> exe)
 
 buildCopyCompilerTool :: VersionNumber -> Action ()
 buildCopyCompilerTool versionNumber =