DIAG: improve style

This commit is contained in:
hasufell 2015-01-09 04:05:43 +01:00
parent d0e155d7c1
commit 70e6ada121
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020

View File

@ -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