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

Improve style

Browse Source
This commit is contained in:
hasufell 2014-10-13 19:53:33 +02:00
parent edde93ec77
commit 7a7bfaa1be
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Graphics/Diagram/Gif.hs
View File

@ -14,8 +14,7 @@ import Parser.Meshparser
-- |Return a list of tuples used by 'gifMain' to generate an animated gif. -- |Return a list of tuples used by 'gifMain' to generate an animated gif.
gifDiag :: DiagProp -> [PT] -> [(Diagram Cairo R2, GifDelay)] gifDiag :: DiagProp -> [PT] -> [(Diagram Cairo R2, GifDelay)]
gifDiag p xs = gifDiag p xs =
fmap (\x -> (x, 100)) . fmap ((\x -> (x, 100)) . (<> nonChDiag)) .
fmap (\x -> x <> nonChDiag) .
flip (++) flip (++)
[mkDiag (convexHullPointsText `mappend` [mkDiag (convexHullPointsText `mappend`
convexHullPoints) convexHullPoints)