hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Small adjustments in Monoid Diag instance

Browse Source 
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.
This commit is contained in:
hasufell 2014-10-08 19:21:47 +02:00
parent d8d28d3ca9
commit 8458841182
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Diagram.hs
View File

@ -45,10 +45,10 @@ instance Def DiagProp where
instance Monoid Diag where instance Monoid Diag where
mempty = Diag (\_ _ -> rect 0 0 # lwG 0.00) mempty = Diag (\_ _ -> rect 0 0)
mappend d1 d2 = Diag g mappend d1 d2 = Diag g
where 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 mconcat = foldr mappend mempty