diff options
author | Csaba Hruska <csaba.hruska@gmail.com> | 2016-01-20 11:08:34 +0100 |
---|---|---|
committer | Csaba Hruska <csaba.hruska@gmail.com> | 2016-01-20 11:08:34 +0100 |
commit | c5784bd16aa5fbccba182971b80dbfe211e1dba7 (patch) | |
tree | 87a73df6bc92fc92514671cf153b6c1f0554f73f /tool | |
parent | 5200748d17a30255ffaf5188ddbd3f54c3d67c37 (diff) |
accept filenames with .lc extension
Diffstat (limited to 'tool')
-rw-r--r-- | tool/Compiler.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tool/Compiler.hs b/tool/Compiler.hs index aab95deb..1cdc9fd9 100644 --- a/tool/Compiler.hs +++ b/tool/Compiler.hs | |||
@@ -32,8 +32,11 @@ main = do | |||
32 | 32 | ||
33 | compile :: Config -> IO () | 33 | compile :: Config -> IO () |
34 | compile Config{..} = do | 34 | compile Config{..} = do |
35 | pplRes <- compileMain [".", sourceDir] backend srcName | 35 | let dropExt n | takeExtension n == ".lc" = dropExtension n |
36 | dropExt n = n | ||
37 | baseName = dropExt srcName | ||
38 | pplRes <- compileMain [".", sourceDir] backend baseName | ||
36 | case pplRes of | 39 | case pplRes of |
37 | Left err -> putStrLn err | 40 | Left err -> putStrLn err |
38 | Right ppl -> do | 41 | Right ppl -> do |
39 | B.writeFile (srcName <> ".json") $ encode ppl | 42 | B.writeFile (baseName <> ".json") $ encode ppl |