DIAG: improve style

2015-01-09 04:05:43 +01:00 · 2015-01-09 04:05:43 +01:00 · 70e6ada121
parent d0e155d7c1
commit 70e6ada121
1 changed files with 3 additions and 3 deletions
--- 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