Defaulting for Enum added

src/c2p.pl

@@ -589,9 +589,11 @@ defaultNumType(Type,Type).
 removeDefaultedTypes(Type,Type) :- var(Type), !.
 removeDefaultedTypes('FuncType'(AType,RType),DType) :-
 	classDict(AType,TVar,ModName,DictName),
-        ModName="Prelude",
-	member(DictName,["Eq","Ord","Read","Show"]),
-        nonvar(TVar), !,
+        ModName="Prelude", nonvar(TVar),
+	( member(DictName,["Eq","Ord","Read","Show"])
+        ; DictName="Enum",
+          member(TVar,['TCons'('Prelude.Int',[]),'TCons'('Prelude.Float',[])])
+        ), !,
         removeDefaultedTypes(RType,DType).
 removeDefaultedTypes('FuncType'(AType,RType),'FuncType'(AType,DType)) :- !,
         removeDefaultedTypes(RType,DType).