added codeclimate

This commit is contained in:
Nicole Dresselhaus 2016-01-06 23:08:46 +01:00
parent f545662a47
commit 5d4797518b
2 changed files with 8 additions and 1 deletions

7
.codeclimate.yml Normal file
View File

@ -0,0 +1,7 @@
---
engines:
fixme:
enabled: true
ratings:
paths: []
exclude_paths: []

View File

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