[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / real / veritas / Type_defs.lhs
index d062807..bffae73 100644 (file)
@@ -4,13 +4,13 @@
 
 > import Kernel
 
-> data Maybe a b = Ok a | Bad b deriving ( Eq )
+> data MayBe a b = Ok a | Bad b deriving ( Eq )
 
 > data Token = Rvd String | Clr String | Bdr Binder_conn |
 >             IfxBdr String | IfxOp String | Scan_Err String
 >               deriving ( Eq )
 >   -- partain:
-> instance Text Token
+> instance Show Token
 
 
 >-- data Oprtype = Pre | Post | BinL | BinR deriving ( Eq )