diff options
| author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-02-22 16:11:32 +0100 |
|---|---|---|
| committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-02-22 16:11:38 +0100 |
| commit | 008e2f12f1d957cbdc813b600b59d1623383d439 (patch) | |
| tree | 784b414383c3fcac10553707ce4c8bc4700cd83a /tool | |
| parent | 23b42e612a6a7864428674b3c9d63ed86fc07435 (diff) | |
fix lc
Diffstat (limited to 'tool')
| -rw-r--r-- | tool/Compiler.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tool/Compiler.hs b/tool/Compiler.hs index 7fdf9e99..ccc50d7d 100644 --- a/tool/Compiler.hs +++ b/tool/Compiler.hs | |||
| @@ -42,7 +42,7 @@ compile cfg@Config{..} = do | |||
| 42 | case ext of | 42 | case ext of |
| 43 | ".json" | pretty -> prettyPrint cfg | 43 | ".json" | pretty -> prettyPrint cfg |
| 44 | _ -> do | 44 | _ -> do |
| 45 | pplRes <- compileMain includePaths backend baseName | 45 | pplRes <- compileMain includePaths backend srcName |
| 46 | case pplRes of | 46 | case pplRes of |
| 47 | Left err -> fail err | 47 | Left err -> fail err |
| 48 | Right ppl -> case pretty of | 48 | Right ppl -> case pretty of |