diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-03-10 19:18:30 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-03-10 19:18:30 +0100 |
| commit | 452cd4949605f4370e4aed4d54bc23d71ca0ecfb (patch) | |
| tree | 3a722b5fa1f25351fa33c6618a23f0dfc2eca448 /app/Frontend.hs | |
| parent | f61d6a0179e901717fbf3153282ecd4990db0108 (diff) | |
| download | prlg-452cd4949605f4370e4aed4d54bc23d71ca0ecfb.tar.gz prlg-452cd4949605f4370e4aed4d54bc23d71ca0ecfb.tar.bz2 | |
compiler can compile errors
Diffstat (limited to 'app/Frontend.hs')
| -rw-r--r-- | app/Frontend.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |