diff --git a/hxt.cabal b/hxt.cabal
--- a/hxt.cabal
+++ b/hxt.cabal
@@ -1,6 +1,6 @@
 -- arch-tag: Haskell XML Toolbox main description file
 Name:           hxt
-Version:        9.3.1.3
+Version:        9.3.1.4
 Synopsis:       A collection of tools for processing XML with Haskell.
 Description:    The Haskell XML Toolbox bases on the ideas of HaXml and HXML,
                 but introduces a more general approach for processing XML with Haskell.
@@ -15,6 +15,9 @@
                 hxt-curl, hxt-tagsoup, hxt-relaxng, hxt-xpath, hxt-xslt, hxt-regex-xmlschema contain the extensions.
                 hxt-unicode contains encoding and decoding functions,
                 hxt-charproperties char properties for unicode and XML.
+                .
+                Changes from 9.3.1.3: warnings from ghc-7.8.1 removed
+                .
                 Changes from 9.3.1.2: https as protocol added
                 .
                 Changes from 9.3.1.1: new parser xreadDoc
diff --git a/src/Text/XML/HXT/Arrow/Pickle/Xml.hs b/src/Text/XML/HXT/Arrow/Pickle/Xml.hs
--- a/src/Text/XML/HXT/Arrow/Pickle/Xml.hs
+++ b/src/Text/XML/HXT/Arrow/Pickle/Xml.hs
@@ -49,6 +49,7 @@
 module Text.XML.HXT.Arrow.Pickle.Xml
 where
 
+import           Control.Applicative
 import           Control.Arrow.ArrowList
 import           Control.Arrow.ListArrows
 import           Control.Monad                    ( )
@@ -105,8 +106,20 @@
 
 type UnpickleErr        = (String, St)
 
+instance Functor Unpickler where
+    fmap f u    = UP $ \ st ->
+                  let (r, st') = runUP u st in (fmap f r, st')
+
+instance Applicative Unpickler where
+    pure a      = UP $ \ st -> (Right a, st)
+    uf <*> ua   = UP $ \ st ->
+                  let (f, st') = runUP uf st in
+                  case f of
+                    Left err -> (Left err, st')
+                    Right f' -> runUP (fmap f' ua) st'
+
 instance Monad Unpickler where
-    return x    = UP $ \ st -> (Right x, st)
+    return      = pure
     u >>= f     = UP $ \ st ->
                   let (r, st') = runUP u st in
                   case r of