From dd9bfc530d9b265c432b3746dfebc55e1700a343 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Sun, 16 Nov 2014 01:42:48 +0100
Subject: [PATCH] DIAG: fix Gif build

---
 Graphics/Diagram/Gif.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Graphics/Diagram/Gif.hs b/Graphics/Diagram/Gif.hs
index ff494cd..3d97b86 100644
--- 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