From 7a7bfaa1be3242aee483c76eaf2b4eaad4077e83 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Mon, 13 Oct 2014 19:53:33 +0200
Subject: [PATCH] Improve style

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

diff --git a/Graphics/Diagram/Gif.hs b/Graphics/Diagram/Gif.hs
index dce3beb..a1e1006 100644
--- a/Graphics/Diagram/Gif.hs
+++ b/Graphics/Diagram/Gif.hs
@@ -14,8 +14,7 @@ import Parser.Meshparser
 -- |Return a list of tuples used by 'gifMain' to generate an animated gif.
 gifDiag :: DiagProp -> [PT] -> [(Diagram Cairo R2, GifDelay)]
 gifDiag p xs =
-  fmap (\x -> (x, 100))                         .
-    fmap (\x -> x <> nonChDiag)                 .
+  fmap ((\x -> (x, 100)) . (<> nonChDiag))      .
     flip (++)
       [mkDiag (convexHullPointsText `mappend`
         convexHullPoints)