Style

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"

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) .