Minor cleanup

This commit is contained in:
hasufell 2014-10-01 01:19:20 +02:00
parent 6c0a1c7572
commit f9f8b04ea9
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
2 changed files with 2 additions and 3 deletions

View File

@ -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

View File

@ -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