From 954b104642ee546ca6851334f44deea7ef6c289e Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Fri, 10 Oct 2014 17:40:25 +0200
Subject: [PATCH] Style

---
 GUI/Gtk.hs           | 1 +
 Parser/Meshparser.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/GUI/Gtk.hs b/GUI/Gtk.hs
index 89054cd..bffcdc6 100644
--- a/GUI/Gtk.hs
+++ b/GUI/Gtk.hs
@@ -261,6 +261,7 @@ saveDiag' fp mygui =
         yD = (,)         <$>
           readMaybe ylD' <*>
           readMaybe yuD' :: Maybe (Double, Double)
+
       case (xD, yD) of
         (Just xD', Just yD') -> do
           renderCairo "out.svg"
diff --git a/Parser/Meshparser.hs b/Parser/Meshparser.hs
index 9ec3050..df2fd9a 100644
--- a/Parser/Meshparser.hs
+++ b/Parser/Meshparser.hs
@@ -13,7 +13,7 @@ import Parser.Core
 meshToArr :: String   -- ^ the string to convert
           -> [PT]     -- ^ the resulting vertice table
 meshToArr xs =
-  fmap (p2)                       .
+  fmap p2                         .
     fmap (\(Just (x, _)) -> x)    .
     filter (/= Nothing)           .
     fmap (runParser parseVertice) .