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)