From 5d4797518be69647bc2baa49a501dbfb6b29300f Mon Sep 17 00:00:00 2001
From: Stefan Dresselhaus <sdressel@techfak.uni-bielefeld.de>
Date: Wed, 6 Jan 2016 23:08:46 +0100
Subject: [PATCH] added codeclimate

---
 .codeclimate.yml | 7 +++++++
 src/Main.hs      | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 .codeclimate.yml

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)