diff --git a/FOV.hsc b/FOV.hsc
--- a/FOV.hsc
+++ b/FOV.hsc
@@ -95,8 +95,8 @@
        -> (Int -> Int -> IO Bool) -- ^The function to determine the opacity of a certain cell
        -> IO ()
 circle (Settings fps) (x,y) r apply opaque = withForeignPtr fps $ \s -> do
-	fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x' y' _ _ _ -> apply x' y')
-	fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x' y' -> opaque x' y')
+	fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x y _ _ _ -> apply x y)
+	fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x y -> opaque x y)
 	fov_circle s nullPtr nullPtr x y r
 
 -- | Cast a beam.
@@ -109,6 +109,6 @@
      -> (Int -> Int -> IO Bool) -- ^Opacity test function
      -> IO ()
 beam (Settings fps) (x,y) r dir angle apply opaque = withForeignPtr fps $ \s -> do
-	fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x' y' _ _ _ -> apply x' y')
-	fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x' y' -> opaque x' y')
+	fov_settings_set_apply_lighting_function s =<< mkApplyFn (\_ x y _ _ _ -> apply x y)
+	fov_settings_set_opacity_test_function s =<< mkOpacityTestFn (\_ x y -> opaque x y)
 	fov_beam s nullPtr nullPtr x y r (rawdirection dir) angle
diff --git a/hfov.cabal b/hfov.cabal
--- a/hfov.cabal
+++ b/hfov.cabal
@@ -1,5 +1,5 @@
 Name:            hfov
-Version:         0.5
+Version:         1.0.1
 Category:        Game
 Synopsis:        Field-of-view calculation for low-resolution 2D raster grids.
 Description:     A Haskell binding to a Field of View calculation library
@@ -9,7 +9,7 @@
 License-file:    LICENSE
 Author:          Jeremy Apthorp <nornagon@nornagon.net>, Greg McIntyre
 Maintainer:      nornagon@nornagon.net
-Build-Depends:   base >= 1.0, haskell98 >= 1.0
+Build-Depends:   base >= 1.0 && < 3
 Build-Type:      Simple
 Tested-with:     GHC==6.8.2
 
@@ -19,4 +19,4 @@
 Extra-source-files: fov.h
 Extensions: CPP, ForeignFunctionInterface
 Include-dirs: .
-ghc-options: -Wall
+ghc-options:  -Wall