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

Properly handle mempty in Monoid Diag instance

Browse Source
This commit is contained in:
hasufell 2014-10-09 00:59:18 +02:00
parent 9b566f2a63
commit 8949d05b3b
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Diagram.hs
View File

@ -45,7 +45,7 @@ instance Def DiagProp where
instance Monoid Diag where instance Monoid Diag where
mempty = Diag (\_ _ -> rect 0 0) mempty = Diag (\_ _ -> mempty)
mappend d1 d2 = Diag g mappend d1 d2 = Diag g
where where
g p vt = mkDiag d1 p vt <> mkDiag d2 p vt g p vt = mkDiag d1 p vt <> mkDiag d2 p vt