DIAG: fix Gif build

2014-11-16 01:42:48 +01:00
parent 8f911247c7
commit dd9bfc530d
1 changed files with 1 additions and 1 deletions
--- a/Graphics/Diagram/Gif.hs
+++ b/Graphics/Diagram/Gif.hs
@@ -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