hasufell
/
cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Graphics/Diagram/Gif.hs
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