Properly handle mempty in Monoid Diag instance

2014-10-09 00:59:18 +02:00 · 2014-10-09 00:59:18 +02:00 · 8949d05b3b
parent 9b566f2a63
commit 8949d05b3b
1 changed files with 1 additions and 1 deletions
--- 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