Minor cleanup

Main.hs

@@ -4,7 +4,6 @@ import Diagram
 import Diagrams.Prelude
 import Diagrams.Backend.Cairo
 import Diagrams.Backend.Cairo.Internal
-import Diagrams.Backend.Gtk
 import Graphics.UI.Gtk
 
 
@@ -22,7 +21,7 @@ main = do
       dw <- widgetGetDrawWindow da
       let (png, r) = renderDia Cairo
                              (CairoOptions "jo.svg" (Width 600) SVG False)
-                             (diagFromString $ mesh)
+                             (diagFromString mesh)
       png
       renderWithDrawable dw r
       return True

Util.hs

@@ -12,7 +12,7 @@ inRange (x, y) min' max'
 
 
 -- |Filter the valid coordinates.
-filterValidCoords :: Double             -- ^ min
+filterValidCoords :: Double               -- ^ min
                     -> Double             -- ^ max
                     -> [(Double, Double)] -- ^ unfiltered
                     -> [(Double, Double)] -- ^ filtered