Proctables are now maps

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'