From 9e87c971ab1d50e3c82042c20575244239061308 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Wed, 1 Oct 2014 03:03:30 +0200
Subject: [PATCH] Style tweaks

---
 Main.hs | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/Main.hs b/Main.hs
index 0018b1a..3a0542e 100644
--- a/Main.hs
+++ b/Main.hs
@@ -72,10 +72,10 @@ onClickedDrawButton fcb da = do
   case filename of
     Just x -> do
       mesh <- readFile x
-      dw <- widgetGetDrawWindow da
+      dw   <- widgetGetDrawWindow da
       let (_, r) = renderDia Cairo
-                             (CairoOptions "" (Width 600) SVG False)
-                             (diagFromString mesh)
+                     (CairoOptions "" (Width 600) SVG False)
+                     (diagFromString mesh)
       renderWithDrawable dw r
     Nothing -> do
       showErrorDialog "No valid Mesh file!"
@@ -89,8 +89,8 @@ onClickedSaveButton fcb = do
     Just x -> do
       mesh <- readFile x
       let (png, _) = renderDia Cairo
-                             (CairoOptions "out.svg" (Width 600) SVG False)
-                             (diagFromString mesh)
+                       (CairoOptions "out.svg" (Width 600) SVG False)
+                       (diagFromString mesh)
       png
     Nothing -> do
       showErrorDialog "No valid Mesh file!"
@@ -98,7 +98,8 @@ onClickedSaveButton fcb = do
 
 showErrorDialog :: String -> IO ()
 showErrorDialog str = do
-  errorDialog <- messageDialogNew Nothing [DialogDestroyWithParent]
+  errorDialog <- messageDialogNew Nothing
+                                  [DialogDestroyWithParent]
                                   MessageError
                                   ButtonsClose
                                   str