diff --git a/src/Text/Taggy/Combinators.hs b/src/Text/Taggy/Combinators.hs
index 2de72b8..9df054a 100644
--- a/src/Text/Taggy/Combinators.hs
+++ b/src/Text/Taggy/Combinators.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE LambdaCase, ViewPatterns #-}
+{-# LANGUAGE LambdaCase #-}
 
 module Text.Taggy.Combinators (hasName, hasAttr, getAttr, innerText, (//), (/&), subtrees) where
 
@@ -27,7 +27,7 @@ innerText = mconcat . map getContent . eltChildren
 
 (/&) :: Element -> [(Element -> Bool)] -> [Element]
 (/&) element [] = [element]
-(/&) element (x:xs) = (=<<) (/& xs) . filter x . catElements $ eltChildren element
+(/&) element (x:xs) = (/& xs) <=< filter x . catElements $ eltChildren element
 
 subtrees :: Element -> [Element]
 subtrees = ap (:) subtrees <=< catElements . eltChildren