From 84588411827ece9330751cf9503e81beb1d7b302 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Wed, 8 Oct 2014 19:21:47 +0200
Subject: [PATCH] Small adjustments in Monoid Diag instance

The lwG propery doesn't have any effect, so remove it.
Using '<>' here gets correctly inferred for the Diagrams library
data types, so just use it.
---
 Diagram.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Diagram.hs b/Diagram.hs
index 98c3842..673cc87 100644
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -45,10 +45,10 @@ instance Def DiagProp where
 
 
 instance Monoid Diag where
-  mempty = Diag (\_ _ -> rect 0 0 # lwG 0.00)
+  mempty = Diag (\_ _ -> rect 0 0)
   mappend d1 d2 = Diag g
     where
-      g p vt = mkDiag d1 p vt `atop` mkDiag d2 p vt
+      g p vt = mkDiag d1 p vt <> mkDiag d2 p vt
   mconcat = foldr mappend mempty