Style

Diagram.hs

@@ -35,6 +35,7 @@ diagFromVTable prop vt
                                t prop :: Diagram Cairo R2) # fc black
               mkPoint (x,y) = p2 (x,y)
 
+
 -- |Create the Diagram from a String.
 diagFromString :: DiagProp -> String -> Diagram Cairo R2
 diagFromString prop mesh

Meshparser.hs

@@ -10,7 +10,7 @@ type VTable = [(Double, Double)]
 -- an array of float tuples.
 meshToArr :: String   -- ^ the string to convert
           -> VTable   -- ^ the resulting vertice table
-meshToArr xs = fmap (\(Just (x, _)) -> x)     .
+meshToArr xs = fmap (\(Just (x, _)) -> x)      .
                  filter (/= Nothing)           .
                  fmap (runParser parseVertice) .
                  lines                         $