shithub: MicroHs

Info  •  Files  •  Log  •  Branches

instance Show Handle

--- a/lib/System/IO.hs

+++ b/lib/System/IO.hs

@@ -52,6 +52,9 @@

 instance Eq Handle where

   Handle p == Handle q  =  p == q

+instance Show Handle where

+  show (Handle p) = "Handle-" ++ show p

+

 nullHandle :: Handle

 nullHandle = Handle nullPtr

-- 

⑨