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 lowerHullList = mkGifDiag convexHStepsLs p orange grahamLHSteps xs
-- add the x-axis and the other default stuff -- add the x-axis and the other default stuff
nonChDiag = nonChDiag =
mconcat . mconcat
fmap (\x -> mkDiag x p [xs]) $ . fmap (\x -> mkDiag x p [xs])
[coordPoints, plotterBG] $ [coordPoints, plotterBG]
-- |Same as gifDiag, except that it takes a string containing the -- |Same as gifDiag, except that it takes a string containing the