]> git.wincent.com - docvim.git/blobdiff - lib/Text/Docvim/Visitor.hs
Fix remaining warnings
[docvim.git] / lib / Text / Docvim / Visitor.hs
index 2ec37b464e8cadd678ce55507c2948369f61ce32..ace5e0615522804c743c3a9f5208469b17e042e7 100644 (file)
@@ -39,12 +39,12 @@ extractBlocks :: Alternative f => (a -> Maybe (a -> Bool)) -> [a] -> (f [a], [a]
 extractBlocks start = go
   where
     go     [] = (empty, [])
-    go (x:xs) = maybe no_extract extract (start x)
+    go (x:xs) = maybe no_extract extract' (start x)
       where
         no_extract = (extracted, x:unextracted)
           where
             ~(extracted, unextracted) = go xs
-        extract stop = (pure (x:block) <|> extracted, unextracted)
+        extract' stop = (pure (x:block) <|> extracted, unextracted)
           where
             ~(block, remainder) = break stop xs
             ~(extracted, unextracted) = go remainder