@@ -32,8 +32,9 @@ instance Show Nat where
32instance Show Int where
32instance Show Int where
33 show = prim__intToStr
33 show = prim__intToStr
35instance Show (Mod2 n) where
36instance Show (Mod2 n) where
36− show = modToStr
37+ show (MkMod2 x) = bitsToStr x
38instance Show Integer where
39instance Show Integer where
39 show = prim__bigIntToStr
40 show = prim__bigIntToStr