@@ -14,6 +14,9 @@ import qualified Data.ByteString as B hiding (pack)
1414import qualified Data.ByteString.Builder as B
1515import qualified Data.ByteString.Char8 as B (pack, readInteger)
1616import qualified Data.ByteString.Lazy as L
17+#if __GLASGOW_HASKELL__ < 709
18+import Data.Functor ((<$>))
19+#endif
1720import Data.Maybe (listToMaybe)
1821import Data.Text (Text)
1922import Data.Typeable (Typeable)