Commit cd71a6d8 authored by Mart Lubbers's avatar Mart Lubbers

Remove bool and char instances for gDefault

parent c21c41f0
Pipeline #9372 passed with stage
in 1 minute and 50 seconds
......@@ -4,6 +4,6 @@ import StdGeneric
generic gDefault a :: a
derive gDefault Int, Bool, Real, Char, String, UNIT, PAIR, EITHER, CONS, FIELD, OBJECT, RECORD
derive gDefault Int, Real, String, UNIT, PAIR, EITHER, CONS, FIELD, OBJECT, RECORD
derive gDefault (), [], (,), (,,), (,,,), (,,,,), (,,,,,), (,,,,,,), (,,,,,,,)
......@@ -6,9 +6,7 @@ import StdGeneric
generic gDefault a :: a
gDefault{|Int|} = 0
gDefault{|Bool|} = False
gDefault{|Real|} = 0.0
gDefault{|Char|} = '-'
gDefault{|String|} = ""
gDefault{|UNIT|} = UNIT
gDefault{|EITHER|} dl dr = LEFT dl
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment