From 8949d05b3bea1210449f6215c9d1f7ba344220d1 Mon Sep 17 00:00:00 2001 From: hasufell Date: Thu, 9 Oct 2014 00:59:18 +0200 Subject: [PATCH] Properly handle mempty in Monoid Diag instance --- Diagram.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Diagram.hs b/Diagram.hs index 4acecdb..c94363b 100644 --- a/Diagram.hs +++ b/Diagram.hs @@ -45,7 +45,7 @@ instance Def DiagProp where instance Monoid Diag where - mempty = Diag (\_ _ -> rect 0 0) + mempty = Diag (\_ _ -> mempty) mappend d1 d2 = Diag g where g p vt = mkDiag d1 p vt <> mkDiag d2 p vt