be safe

Author: rocka

src/Rules/Boost.hs

@@ -73,9 +73,8 @@ boostRule = do
                 "-DBOOST_INSTALL_LAYOUT=system"
               ],
           -- symlink headers for each abi to reduce size
-          postBuildEachABI = BuildActionABI $ \_ env -> do
-            liftIO $ do
-              createDirectoryLink (".." </> "include") (buildEnvOutPrefix env </> "include")
+          postBuildEachABI = BuildActionABI $ \_ env ->
+            liftIO $ createDirectoryLink (".." </> "include") (buildEnvOutPrefix env </> "include")
         }
   "boost" ~> do
     buildWithAndroidEnv buildBoost Boost

src/Rules/Marisa.hs

@@ -11,7 +11,6 @@ where
 
 import Base
 import CMakeBuilder
-import System.IO.Unsafe (unsafePerformIO)
 
 data MarisaTrie = MarisaTrie
   deriving stock (Eq, Show, Typeable, Generic)
@@ -22,7 +21,7 @@ type instance RuleResult MarisaTrie = ()
 hostMarisaRule :: Rules ()
 hostMarisaRule = do
   "host-marisa" ~> do
-    let marisaSrc = unsafePerformIO $ canonicalizePath "marisa-trie"
+    marisaSrc <- liftIO $ canonicalizePath "marisa-trie"
     let buildDir = outputDir </> "marisa-build-host"
     let hostPrefix = outputDir </> "host"
     cmd_ (Cwd marisaSrc) "git checkout ."

src/Rules/OpenCC.hs

@@ -12,7 +12,6 @@ where
 
 import Base
 import CMakeBuilder
-import System.IO.Unsafe (unsafePerformIO)
 
 data OpenCC = OpenCC
   deriving stock (Eq, Show, Typeable, Generic)
@@ -24,7 +23,7 @@ hostOpenCCRule :: Rules ()
 hostOpenCCRule = do
   "opencc-dict" ~> do
     need [ "host-marisa" ]
-    let openccSrc = unsafePerformIO $ canonicalizePath "OpenCC"
+    openccSrc <- liftIO $ canonicalizePath "OpenCC"
     let buildDir = outputDir </> "opencc-build-host"
     let hostPrefix = outputDir </> "host"
     cmd_ Shell ("echo " <> openccSrc)