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
|
||||
-- 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
|
||||
|
Loading…
Reference in New Issue
Block a user