summaryrefslogtreecommitdiff
path: root/DSL/StdLib.hs
diff options
context:
space:
mode:
Diffstat (limited to 'DSL/StdLib.hs')
-rw-r--r--DSL/StdLib.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/DSL/StdLib.hs b/DSL/StdLib.hs
index 6483433..360e139 100644
--- a/DSL/StdLib.hs
+++ b/DSL/StdLib.hs
@@ -1,16 +1,18 @@
module DSL.StdLib (stdlib) where
+import Data.Map.Strict (fromList)
+
import DSL.Types
import DSL.BaseParsers (parse, mult, chain)
import DSL.Parsing (tokenizer, procP)
-stdlib :: [ProcSpec]
+stdlib :: ProcTable
stdlib = procs
where
p = tokenizer `chain` mult procP
procs = case parse p (unlines sources) of
Nothing -> error "Failed to parse standard library"
- Just (_, ps) -> ps
+ Just (_, ps) -> fromList ps
sources :: [String]
sources = [ div'