On Tue, Jul 8, 2014 at 6:52 PM, Cody Goodman <codygman.consulting@gmail.com> wrote:
      textElems <- filterM (liftM $ ((==) "text" . (`attr` "type"))) inputs

Are you sure this shouldn't be:

    let textElems = filter ((==) "text" . `attr` "type") inputs

? The type in the error suggests this is more appropriate.

--
brandon s allbery kf8nh                               sine nomine associates
allbery.b@gmail.com                                  ballbery@sinenomine.net
unix, openafs, kerberos, infrastructure, xmonad        http://sinenomine.net