diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2022-09-09 17:00:09 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2022-09-09 17:00:09 +0100 |
| commit | d24d92034ea278750668daff810147e0aec9dc04 (patch) | |
| tree | b4edce0a3c93b3759e0af61d8077837510dca81a /src/Micro/Compiler.hs | |
| parent | bcc469bc7f1d73e66828637b5b518b7cab8e2781 (diff) | |
| download | micro-lang-hs-d24d92034ea278750668daff810147e0aec9dc04.tar.gz micro-lang-hs-d24d92034ea278750668daff810147e0aec9dc04.zip | |
Pass the version
Diffstat (limited to 'src/Micro/Compiler.hs')
| -rw-r--r-- | src/Micro/Compiler.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Micro/Compiler.hs b/src/Micro/Compiler.hs index b765c16..de5728a 100644 --- a/src/Micro/Compiler.hs +++ b/src/Micro/Compiler.hs @@ -8,6 +8,9 @@ import Micro.Env import Micro.Error import Text.Parsec (SourcePos) +version :: String +version = "0.1.0" + type CompState = (Env, [Error]) data CompResult = CompResult @@ -207,5 +210,5 @@ compileAll ast = do _ <- traverse compile ast ((Env sym _), errs) <- get case errs of - [] -> pure $ successResult $ generate sym ast + [] -> pure $ successResult $ generate version sym ast _ -> return $ errorResult errs |