DIAG: eta-reduce

2014-12-01 02:27:42 +01:00 · 2014-12-01 02:27:42 +01:00 · a23842bf82
parent 9bc0b5e846
commit a23842bf82
1 changed files with 1 additions and 5 deletions
--- a/Graphics/Diagram/Gtk.hs
+++ b/Graphics/Diagram/Gtk.hs
@ -61,8 +61,4 @@ diagS p mesh
 -- |Create the tree diagram from a String which is supposed to be the contents
 -- of an obj file.
 diagTreeS :: DiagProp -> B.ByteString -> Diagram Cairo R2
-diagTreeS p mesh = diag p diagTreAlgos
-                     . Object
-                     . filterValidPT p
-                     . meshToArr
-                     $ mesh
+diagTreeS p = diag p diagTreAlgos . Object . filterValidPT p . meshToArr