shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add commented out Show instance

--- a/src/MicroHs/IdentMap.hs

+++ b/src/MicroHs/IdentMap.hs

@@ -29,6 +29,11 @@

     (Map a)        -- right subtree

 --  deriving(Show)

+{-

+instance Show a => Show (Map a) where

+  show m = show (toList m)

+-}

+

 empty :: forall a . Map a

 empty = Nil

-- 

⑨