diff options
| author | Marvin Borner | 2023-09-15 19:43:30 +0200 |
|---|---|---|
| committer | Marvin Borner | 2023-09-15 19:43:30 +0200 |
| commit | e21fe4c4807d8713a1401d90a14715f6d2fd2403 (patch) | |
| tree | d9dddcfa2fc5b4befea0866df2d2c43ba0e5721d /app/Main.hs | |
| parent | 3adf8eced77b4513ef3f93343e385565dfa514d0 (diff) | |
More work on transpiler
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 004d079..9c62589 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -14,7 +14,9 @@ transpile = do let term = fromBLC file putStrLn $ "input: " ++ show term let ski = transpileSKI term - putStrLn $ "transpiled: " ++ show ski + putStrLn $ "SKI transpiled: " ++ show ski + let birb = transpileBirb ski + putStrLn $ "Birb transpiled: " ++ show birb return () reduce :: IO () |