DIAG: improve style
This commit is contained in:
parent
d0e155d7c1
commit
70e6ada121
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user