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

DIAG: fix Gif build

This commit is contained in:
hasufell 2014-11-16 01:42:48 +01:00
parent 8f911247c7
commit dd9bfc530d
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
Graphics/Diagram/Gif.hs
View File

@ -20,7 +20,7 @@ gifDiag p xs =
(upperHullList
<> fmap (<> last upperHullList) lowerHullList
<> [mkDiag (mconcat [convexHPText, convexHP, convexHLs])
p{ ct = True } (Object xs)])
p{ showCoordText = True } (Object xs)])
where
upperHullList = mkGifDiag convexHStepsLs p purple grahamUHSteps xs
lowerHullList = mkGifDiag convexHStepsLs p orange grahamLHSteps xs