From 70e6ada1210251f9885ee80a53cee6653106b951 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Fri, 9 Jan 2015 04:05:43 +0100
Subject: [PATCH] DIAG: improve style

---
 Graphics/Diagram/Gif.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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