From a23842bf8259f6dbf3e20a687d7b50fc305f13d0 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Mon, 1 Dec 2014 02:27:42 +0100
Subject: [PATCH] DIAG: eta-reduce

---
 Graphics/Diagram/Gtk.hs | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/Graphics/Diagram/Gtk.hs b/Graphics/Diagram/Gtk.hs
index f716f89..a4fd769 100644
--- 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