shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add a Show instance

--- a/src/MicroHs/Expr.hs

+++ b/src/MicroHs/Expr.hs

@@ -531,6 +531,9 @@

 instance Show Eqn where

   show eqn = render $ ppEqns (text "_") (text "=") [eqn]

+instance Show EDef where

+  show d = showEDefs [d]

+

 showExpr :: Expr -> String

 showExpr = render . ppExpr

-- 

⑨