stop using deprecated Turtle.fromText

msakai · Dec 28, 2024 · 57cf794 · 57cf794
1 parent 45dc726
commit 57cf794
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/misc/build_artifacts.hs b/misc/build_artifacts.hs
@@ -6,6 +6,7 @@
 import Turtle
 import qualified Control.Foldl as L
 import Control.Monad
+import qualified Data.Text as T
 import Distribution.Package
 import Distribution.PackageDescription
 import Distribution.PackageDescription.Parsec
@@ -58,12 +59,12 @@ main = sh $ do
   when b $ rmtree pkg
 
   mktree (pkg </> "bin")
-  let binDir = fromText (lineToText local_install_root) </> "bin"
+  let binDir = T.unpack (lineToText local_install_root) </> "bin"
   forM exe_files $ \name -> do
     cp (binDir </> addExeSuffix name) (pkg </> "bin" </> addExeSuffix name)
 
   mktree (pkg </> "lib")
-  let libDir = fromText (lineToText local_install_root) </> "lib"
+  let libDir = T.unpack (lineToText local_install_root) </> "lib"
   when (Info.os == "mingw32") $ do
     cp (libDir </> "toysat-ipasir.dll") (pkg </> "bin" </> "toysat-ipasir.dll")
     proc "stack"