diff options
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 |