diff --git a/.codeclimate.yml b/.codeclimate.yml
new file mode 100644
index 0000000..f3c2a9b
--- /dev/null
+++ b/.codeclimate.yml
@@ -0,0 +1,7 @@
+---
+engines:
+  fixme:
+    enabled: true
+ratings:
+  paths: []
+exclude_paths: []
diff --git a/src/Main.hs b/src/Main.hs
index 402abd5..3e98ed5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -73,7 +73,7 @@ pixelize tw th im@(Image iw ih id) =
       else Just (snd $ generateFoldImage (folder filterfun windoww windowh) im tw th,
                  snd $ generateFoldImage (folder filterfuninv windoww windowh) im tw th)
      where
-       windoww = fromIntegral iw / fromIntegral tw
+       windoww = (fromIntegral iw) / fromIntegral tw
        windowh = fromIntegral ih / fromIntegral th
 
 folder :: ((PixelRGB8, Int, Int) -> (PixelRGB8, Int, Int) -> (PixelRGB8, Int, Int)) -> Double -> Double -> Image PixelRGB8 -> Int -> Int -> (Image PixelRGB8, PixelRGB8)