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

DIAG: eta-reduce

Browse Source
This commit is contained in:
hasufell 2014-12-01 02:27:42 +01:00
parent 9bc0b5e846
commit a23842bf82
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Graphics/Diagram/Gtk.hs
View File

@ -61,8 +61,4 @@ diagS p mesh
-- |Create the tree diagram from a String which is supposed to be the contents -- |Create the tree diagram from a String which is supposed to be the contents
-- of an obj file. -- of an obj file.
diagTreeS :: DiagProp -> B.ByteString -> Diagram Cairo R2 diagTreeS :: DiagProp -> B.ByteString -> Diagram Cairo R2
diagTreeS p mesh = diag p diagTreAlgos diagTreeS p = diag p diagTreAlgos . Object . filterValidPT p . meshToArr
. Object
. filterValidPT p
. meshToArr
$ mesh