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

Style

Browse Source
This commit is contained in:
hasufell 2014-10-06 22:19:46 +02:00
parent b98d8be723
commit 98a1b367d5
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Diagram.hs
View File

@ -126,7 +126,6 @@ showWhiteRectB = Diag f
f p _ = whiteRect (xuD p - xlD p + 50) (yuD p - ylD p + 50) f p _ = whiteRect (xuD p - xlD p + 50) (yuD p - ylD p + 50)
-- |Create the Diagram from the VTable. -- |Create the Diagram from the VTable.
diag :: DiagProp -> VTable -> Diagram Cairo R2 diag :: DiagProp -> VTable -> Diagram Cairo R2
diag p = case alg p of diag p = case alg p of