Improve style

2014-10-13 19:53:33 +02:00 · 2014-10-13 19:53:33 +02:00 · 7a7bfaa1be
commit 7a7bfaa1be
parent edde93ec77
1 changed files with 1 additions and 2 deletions
--- 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)