@@ -21,7 +21,7 @@ recordOf :: [(String,Type)] -> Type
21recordOf fields = Record (fieldMap fields) EmptyRecord
21recordOf fields = Record (fieldMap fields) EmptyRecord
23listOf :: Type -> Type
23listOf :: Type -> Type
24−listOf t = Data "List" [t]
24+listOf t = Data "_List" [t]
26tupleOf :: [Type] -> Type
26tupleOf :: [Type] -> Type
27tupleOf ts = Data ("_Tuple" ++ show (length ts)) ts
27tupleOf ts = Data ("_Tuple" ++ show (length ts)) ts