diff options
Diffstat (limited to 'DSL/StdLib.hs')
| -rw-r--r-- | DSL/StdLib.hs | 6 |
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' |
