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

DIAG: fix Gif build

Browse Source
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 (upperHullList
<> fmap (<> last upperHullList) lowerHullList <> fmap (<> last upperHullList) lowerHullList
<> [mkDiag (mconcat [convexHPText, convexHP, convexHLs]) <> [mkDiag (mconcat [convexHPText, convexHP, convexHLs])
p{ ct = True } (Object xs)]) p{ showCoordText = True } (Object xs)])
where where
upperHullList = mkGifDiag convexHStepsLs p purple grahamUHSteps xs upperHullList = mkGifDiag convexHStepsLs p purple grahamUHSteps xs
lowerHullList = mkGifDiag convexHStepsLs p orange grahamLHSteps xs lowerHullList = mkGifDiag convexHStepsLs p orange grahamLHSteps xs