From 17d20b5417827f4c2ceb03124581f733036d3bcc Mon Sep 17 00:00:00 2001 From: Richard Marko Date: Sun, 19 Nov 2023 18:06:26 +0100 Subject: [PATCH] core: derivation test, use Text.Lazy.IO --- hnix-store-core/tests/Derivation.hs | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/hnix-store-core/tests/Derivation.hs b/hnix-store-core/tests/Derivation.hs index f8fdca8..2a178e3 100644 --- a/hnix-store-core/tests/Derivation.hs +++ b/hnix-store-core/tests/Derivation.hs @@ -7,22 +7,20 @@ import Test.Tasty.Golden (goldenVsFile) import System.Nix.Derivation (parseDerivation, buildDerivation) import Data.Default.Class (Default(def)) -import qualified Data.Attoparsec.Text -import qualified Data.Text.IO -import qualified Data.Text.Lazy +import qualified Data.Attoparsec.Text.Lazy +import qualified Data.Text.Lazy.IO import qualified Data.Text.Lazy.Builder processDerivation :: FilePath -> FilePath -> IO () processDerivation source dest = do - contents <- Data.Text.IO.readFile source + contents <- Data.Text.Lazy.IO.readFile source either fail - (Data.Text.IO.writeFile dest - . Data.Text.Lazy.toStrict + (Data.Text.Lazy.IO.writeFile dest . Data.Text.Lazy.Builder.toLazyText . buildDerivation def ) - (Data.Attoparsec.Text.parseOnly + (Data.Attoparsec.Text.Lazy.parseOnly (parseDerivation def) contents )