Cleanup Day 6 - still bad naive algorithm

src/Day6.hs

@@ -1,27 +1,28 @@
 module Day6 (
-  findMarker,
-  findMarker',
+  findEnd,
   findStart,
   isUnique,
   day6
 ) where
 
-findMarker :: String -> Maybe Int
-findMarker = findMarker' 4 0 ""
+findMarker :: Int -> String -> Maybe Int
+findMarker windowSize = findMarker' 0 ""
+  where
+  findMarker' :: Int -> String -> String -> Maybe Int
+  findMarker' offset window  []
+    | isUnique window && length window == windowSize = Just offset
+    | otherwise = Nothing
+  findMarker' offset window (c:cs)
+    | length window < windowSize = findMarker' (offset + 1) (c:window) cs
+    | not (isUnique window) = findMarker' (offset + 1) (c:init window) cs
+    | isUnique window = Just offset
+    | otherwise = Nothing
 
 findStart :: String -> Maybe Int
-findStart = findMarker' 14 0 ""
-
-findMarker' :: Int -> Int -> String -> String -> Maybe Int
-findMarker' windowSize offset window  []
-  | isUnique window && length window == windowSize = Just offset
-  | otherwise = Nothing
-findMarker' windowSize offset window (c:cs)
-  | length window < windowSize = findMarker' windowSize (offset + 1) (c:window) cs
-  | not (isUnique window) = findMarker' windowSize (offset + 1) (c:init window) cs
-  | isUnique window = Just offset
-  | otherwise = Nothing
+findStart = findMarker 14 
 
+findEnd :: String -> Maybe Int
+findEnd = findMarker 4
 
 isUnique :: (Eq a) => [a] -> Bool
 isUnique [] = True
@@ -31,7 +32,7 @@ day6 :: IO ()
 day6 = do
    input <- readFile "ressources/day06-input"
    putStrLn "Day6"
-   let offset = findMarker input
+   let offset = findEnd input
    putStrLn ("Found end marker at " ++ show offset)
    let startOffset = findStart input
    putStrLn ("Found start marker at " ++ show startOffset)