Fix lint
authorGreg Hurrell <greg@hurrell.net>
Fri, 17 Jun 2016 04:04:39 +0000 (21:04 -0700)
committerGreg Hurrell <greg@hurrell.net>
Fri, 17 Jun 2016 05:52:50 +0000 (22:52 -0700)
Only happens in CI here:

    https://travis-ci.org/wincent/docvim/jobs/138121738

Quoting:

    lib/Text/Docvim/Visitor.hs:52:26: Warning: Redundant bracket
    Found:
      (a -> m c) -> (a -> m b)
    Why not:
      (a -> m c) -> a -> m b

    lib/Text/Docvim/Visitor.hs:52:55: Warning: Redundant bracket
    Found:
      (b -> m c) -> (a -> m c)
    Why not:
      (b -> m c) -> a -> m c

lib/Text/Docvim/Visitor.hs

index 06e420f75fe489fcb156ec2df8e6f8dce4e9032f..9593575584e36f38096d2c60166cee71574b14fb 100644 (file)
@@ -49,7 +49,7 @@ extractBlocks start = go
             ~(block, remainder) = break stop xs
             ~(extracted, unextracted) = go remainder
 
-postorder :: Monad m => ((a -> m c) -> (a -> m b)) -> (b -> m c) -> (a -> m c)
+postorder :: Monad m => ((a -> m c) -> a -> m b) -> (b -> m c) -> a -> m c
 postorder t f = go
   where
     go = t go >=> f