From 452cd4949605f4370e4aed4d54bc23d71ca0ecfb Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Fri, 10 Mar 2023 19:18:30 +0100 Subject: compiler can compile errors --- app/Frontend.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Frontend.hs') diff --git a/app/Frontend.hs b/app/Frontend.hs index e049365..ee7c9ef 100644 --- a/app/Frontend.hs +++ b/app/Frontend.hs @@ -33,8 +33,8 @@ handleError m = do processCmd precompileHook ast' = do ast <- shunt ast' - code <- lift $ intern ast >>= precompileHook >>= compile - lift (I.prove code) >>= except + source <- lift $ intern ast >>= precompileHook + compile source >>= lift . I.prove >>= except interpreterStart :: PrlgEnv () interpreterStart = do -- cgit v1.2.3