X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=AST.icl;h=b5f8ca026a3bec381f22b0c9c0648aaa62c67f35;hb=cba53fea01b27f46668e9025f8b04ce7a85e62d8;hp=b9b94172766e1ab884653fa3ce48c2979d3cc376;hpb=8c4ec1c3287d6c6ddefd22ef608a4d97693e7e85;p=cc1516.git

diff --git a/AST.icl b/AST.icl
index b9b9417..b5f8ca0 100644
--- 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]