diff options
| author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-24 22:53:03 +0000 |
|---|---|---|
| committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-24 22:53:03 +0000 |
| commit | d03d8d8d51fe9364a09a9a771b843d475382c574 (patch) | |
| tree | d98474868bd7d7f5e57b7f58acdd225b3bf00122 | |
| parent | 8a8a3ef4157ab796a484665b8107f68582423414 (diff) | |
| download | median-cut-d03d8d8d51fe9364a09a9a771b843d475382c574.tar.gz median-cut-d03d8d8d51fe9364a09a9a771b843d475382c574.zip | |
Fix indentation
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index a982c76..6e0122d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -44,7 +44,7 @@ findSplit :: [Double] -> Int findSplit d = findSplit' d [] 0 where findSplit' (x : ds) e i | sum ds < sum e = i - | otherwise = findSplit' ds (x : e) $ i + 1 + | otherwise = findSplit' ds (x : e) $ i + 1 findSplit' _ _ i = i cfmap :: Functor f => (t -> a -> b) -> t -> f a -> f b |