WOOPWOOP expressies typen, behalve func

[cc1516.git] / AST.icl

diff --git a/AST.icl b/AST.icl
index b9b9417..b5f8ca0 100644 (file)
--- a/AST.icl
+++ b/AST.icl
@@ -76,6 +76,9 @@ instance print FieldSelector where
        print FieldSnd = print "snd"
        print FieldFst = print "fst"
 
+instance toString FieldSelector where
+    toString fs = concat $ print fs
+
 instance print VarDef where
        print (VarDef i fs) = printersperse "." [i:flatten $ map print fs]