From bde9dfef3a80a155c83fd2e8570e782192aa8402 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Thu, 20 Dec 2018 21:46:34 +0100 Subject: Bring up to date --- silc.icl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'silc.icl') diff --git a/silc.icl b/silc.icl index 4861d3c..7308914 100644 --- a/silc.icl +++ b/silc.icl @@ -24,7 +24,7 @@ import System.Process import ABC.Assembler from Sil.Check import checkProgram -import qualified Sil.Compile as SC +import Sil.Compile import Sil.Error import Sil.Parse from Sil.Syntax import :: Program @@ -108,7 +108,7 @@ Start w | not ok # err = err <<< "Could not open '" <<< abcfile <<< "' for writing\r\n" = finish 1 io err w -#! prog = 'SC'.compile prog +#! prog = compile prog | isError prog # err = err <<< fromError prog = finish 1 io err w @@ -116,7 +116,7 @@ Start w #! (_,w) = fclose f w | not args.generate = finish 0 io err w -#! (p,w) = callProcess "/opt/clean/bin/clm" ["-l", "-no-pie", module, "-o", module] (Just dir) w +#! (p,w) = callProcess "/opt/clean/bin/clm" [module, "-o", module] (Just dir) w | isError p # err = err <<< snd (fromError p) <<< "\r\n" = finish 1 io err w -- cgit v1.2.3