remove extract from the language

parapluu · May 31, 2016 · 8737773 · 8737773
1 parent ed9fc24
commit 8737773
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/parser/Parser/Parser.hs b/src/parser/Parser/Parser.hs
@@ -101,7 +101,7 @@ lexer =
     ,"when"
     ,"liftf"
     ,"liftv"
-    ,"extract"
+    -- ,"extract"
     ,"each"
     ,"typedef"
    ],
@@ -256,7 +256,7 @@ program = do
   imports <- many importdecl
   etls <- embedTL
   let etl = [etls]
-  decls <- many $ (CDecl <$> classDecl) <|> (TDecl <$> traitDecl) <|> (TDef <$> typedef) <|> (FDecl <$> function) 
+  decls <- many $ (CDecl <$> classDecl) <|> (TDecl <$> traitDecl) <|> (TDef <$> typedef) <|> (FDecl <$> function)
   let (classes, traits, typedefs, functions) = partitionDecls decls
   eof
   return Program{source, bundle, etl, imports, typedefs, functions, traits, classes}