diff --git a/Main.hs b/Main.hs
index 671f57f..647067d 100644
--- a/Main.hs
+++ b/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
diff --git a/Util.hs b/Util.hs
index 7dfa110..cf80f78 100644
--- a/Util.hs
+++ b/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