From 778dc16a3fcc374424ae30c2c987a84bdce05094 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Fri, 17 Oct 2014 14:04:37 +0200
Subject: [PATCH] GUI: use infix instead of ap

---
 GUI/Gtk.hs | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/GUI/Gtk.hs b/GUI/Gtk.hs
index 569e50b..5a87b62 100644
--- a/GUI/Gtk.hs
+++ b/GUI/Gtk.hs
@@ -2,6 +2,7 @@
 
 module GUI.Gtk (makeGUI) where
 
+import Control.Applicative
 import Control.Monad
 import Control.Monad.IO.Class
 import Diagrams.Prelude
@@ -66,23 +67,23 @@ makeMyGladeGUI = do
   -- load glade file
   Just xml   <- xmlNew gladeFile
 
-  return MkMyGUI `ap`
-    xmlGetWidget xml castToWindow "window1" `ap`
-    xmlGetWidget xml castToButton "drawButton" `ap`
-    xmlGetWidget xml castToButton "saveButton" `ap`
-    xmlGetWidget xml castToButton "quitButton" `ap`
-    xmlGetWidget xml castToFileChooserButton
-            "filechooserButton" `ap`
-    xmlGetWidget xml castToDrawingArea "drawingarea" `ap`
-    xmlGetWidget xml castToHScale "hscale" `ap`
-    xmlGetWidget xml castToEntry "xlD" `ap`
-    xmlGetWidget xml castToEntry "xuD" `ap`
-    xmlGetWidget xml castToEntry "ylD" `ap`
-    xmlGetWidget xml castToEntry "yuD" `ap`
-    xmlGetWidget xml castToAboutDialog "aboutdialog" `ap`
-    xmlGetWidget xml castToComboBox "comboalgo" `ap`
-    xmlGetWidget xml castToCheckButton "gridcheckbutton" `ap`
-    xmlGetWidget xml castToCheckButton "coordcheckbutton"
+  MkMyGUI
+    <$> xmlGetWidget xml castToWindow "window1"
+    <*> xmlGetWidget xml castToButton "drawButton"
+    <*> xmlGetWidget xml castToButton "saveButton"
+    <*> xmlGetWidget xml castToButton "quitButton"
+    <*> xmlGetWidget xml castToFileChooserButton
+          "filechooserButton"
+    <*> xmlGetWidget xml castToDrawingArea "drawingarea"
+    <*> xmlGetWidget xml castToHScale "hscale"
+    <*> xmlGetWidget xml castToEntry "xlD"
+    <*> xmlGetWidget xml castToEntry "xuD"
+    <*> xmlGetWidget xml castToEntry "ylD"
+    <*> xmlGetWidget xml castToEntry "yuD"
+    <*> xmlGetWidget xml castToAboutDialog "aboutdialog"
+    <*> xmlGetWidget xml castToComboBox "comboalgo"
+    <*> xmlGetWidget xml castToCheckButton "gridcheckbutton"
+    <*> xmlGetWidget xml castToCheckButton "coordcheckbutton"
 
 
 -- |Main entry point for the GTK GUI routines.