86     def = to gdef  function
89 instance Default Int where def = 0  function
90 instance Default Int8 where def = 0  function
91 instance Default Int16 where def = 0  function
92 instance Default Int32 where def = 0  function
93 instance Default Int64 where def = 0  function
94 instance Default Word where def = 0  function
95 instance Default Word8 where def = 0  function
96 instance Default Word16 where def = 0  function
97 instance Default Word32 where def = 0  function
98 instance Default Word64 where def = 0  function
99 instance Default Integer where def = 0  function
100 instance Default Float where def = 0  function
101 instance Default Double where def = 0  function
102 instance (Integral a) => Default (Ratio a) where def = 0  function
103 instance (Default a, RealFloat a) => Default (Complex a) where def = def :+ def  function
105 instance Default CShort     where def = 0  function
106 instance Default CUShort    where def = 0  function
107 instance Default CInt       where def = 0  function
108 instance Default CUInt      where def = 0  function
109 instance Default CLong      where def = 0  function
110 instance Default CULong     where def = 0  function
111 instance Default CLLong     where def = 0  function
112 instance Default CULLong    where def = 0  function
113 instance Default CPtrdiff   where def = 0  function
114 instance Default CSize      where def = 0  function
115 instance Default CSigAtomic where def = 0  function
116 instance Default CIntPtr    where def = 0  function
117 instance Default CUIntPtr   where def = 0  function
118 instance Default CIntMax    where def = 0  function
119 instance Default CUIntMax   where def = 0  function
120 instance Default CClock     where def = 0  function
121 instance Default CTime      where def = 0  function
123 instance Default CUSeconds  where def = 0  function
124 instance Default CSUSeconds where def = 0  function
126 instance Default CFloat     where def = 0  function
127 instance Default CDouble    where def = 0  function
129 instance (Default r) => Default (e -> r) where def = const def  function
130 instance (Default a) => Default (IO a) where def = return def  function
132 instance Default (Maybe a) where def = Nothing  function
134 instance Default () where def = mempty  function
135 instance Default [a] where def = mempty  function
136 instance Default Ordering where def = mempty  function
137 instance Default Any where def = mempty  function
138 instance Default All where def = mempty  function
139 instance Default (Last a) where def = mempty  function
140 instance Default (First a) where def = mempty  function
141 instance (Num a) => Default (Sum a) where def = mempty  function
142 instance (Num a) => Default (Product a) where def = mempty  function
143 instance Default (Endo a) where def = mempty  function
145 instance (Default a) => Default (Dual a) where def = Dual def  function
146 instance (Default a, Default b) => Default (a, b) where def = (def, def)  function
147 instance (Default a, Default b, Default c) => Default (a, b, c) where def = (def, def, def)  function
148 instance (Default a, Default b, Default c, Default d) => Default (a, b, c, d) where def = (def, def…  function
149 …fault b, Default c, Default d, Default e) => Default (a, b, c, d, e) where def = (def, def, def, d…  function
150 …lt c, Default d, Default e, Default f) => Default (a, b, c, d, e, f) where def = (def, def, def, d…  function
151 …d, Default e, Default f, Default g) => Default (a, b, c, d, e, f, g) where def = (def, def, def, d…  function