]> git.wincent.com - docvim.git/commitdiff
Add a missing type annotation
authorGreg Hurrell <greg@hurrell.net>
Sun, 5 Jun 2016 08:46:09 +0000 (01:46 -0700)
committerGreg Hurrell <greg@hurrell.net>
Sun, 5 Jun 2016 08:46:09 +0000 (01:46 -0700)
lib/Docvim/Visitor.hs

index 5c5dbac5997f03c7f657c2a6a7d7aa740a74119e..02627564e1fce1ed18fa1be7086aa570aac50aea 100644 (file)
@@ -22,6 +22,7 @@ endBlock = \case
   PluginAnnotation {}    -> True
   _                      -> False
 
+extract :: ([Node] -> ([[a]], [Node])) -> Node -> (Node, [a])
 extract extractNodes = toList . runWriter . postorder uniplate extractor
   where
     toList (ast, dlist) = (ast, concat $ DList.toList dlist)