start with adts

[minfp.git] / parse.dcl

diff --git a/parse.dcl b/parse.dcl
index 6ee56d6..2349c5d 100644 (file)
--- a/parse.dcl
+++ b/parse.dcl
@@ -2,9 +2,9 @@ definition module parse
 
 from StdOverloaded import class toString
 from Data.Either import :: Either
-from ast import :: Function
+from ast import :: Function, :: TypeDef
 
 :: Token
 instance toString Token
 lex :: [Char] -> Either [String] [Token]
-parse :: [Token] -> Either [String] [Function]
+parse :: [Token] -> Either [String] [Either TypeDef Function]