From a693f4593efb521d0167f6785d1259045ec1a338 Mon Sep 17 00:00:00 2001 From: Paul Cadman Date: Fri, 22 Mar 2024 16:54:04 +0000 Subject: [PATCH] Fix after rebase --- app/Commands/Dev/Tree/Compile/Base.hs | 2 -- 1 file changed, 2 deletions(-) diff --git a/app/Commands/Dev/Tree/Compile/Base.hs b/app/Commands/Dev/Tree/Compile/Base.hs index efca26a831..2c68d3a6f7 100644 --- a/app/Commands/Dev/Tree/Compile/Base.hs +++ b/app/Commands/Dev/Tree/Compile/Base.hs @@ -120,10 +120,8 @@ outputAnomaResult :: (Members '[EmbedIO, App] r) => Path Abs File -> Nockma.Anom outputAnomaResult nockmaFile Nockma.AnomaResult {..} = do let code = Nockma.ppSerialize _anomaClosure prettyNockmaFile = replaceExtensions' [".pretty", ".nockma"] nockmaFile - prettyEnvFile = replaceExtensions' [".env", ".pretty", ".nockma"] nockmaFile writeFileEnsureLn nockmaFile code writeFileEnsureLn prettyNockmaFile (Nockma.ppPrint _anomaClosure) - writeFileEnsureLn prettyEnvFile (Nockma.ppPrint _anomaEnv) runCasmPipeline :: (Members '[EmbedIO, App, TaggedLock] r) => PipelineArg -> Sem r () runCasmPipeline pa@PipelineArg {..} = do