diff --git a/Graphics/Diagram/Gif.hs b/Graphics/Diagram/Gif.hs
index a906ceb..6079ce8 100644
--- a/Graphics/Diagram/Gif.hs
+++ b/Graphics/Diagram/Gif.hs
@@ -28,9 +28,9 @@ gifDiag p xs =
     lowerHullList = mkGifDiag convexHStepsLs p orange grahamLHSteps xs
     -- add the x-axis and the other default stuff
     nonChDiag =
-      mconcat                               .
-        fmap (\x -> mkDiag x p [xs]) $
-        [coordPoints, plotterBG]
+      mconcat
+        . fmap (\x -> mkDiag x p [xs])
+        $ [coordPoints, plotterBG]
 
 
 -- |Same as gifDiag, except that it takes a string containing the