diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,3 +1,7 @@
+# 0.2.2
+
+* Updated to work with `xmlbf-0.7`.
+
 # 0.2.1
 
 * Added benchmark.
diff --git a/lib/Xmlbf/Xeno.hs b/lib/Xmlbf/Xeno.hs
--- a/lib/Xmlbf/Xeno.hs
+++ b/lib/Xmlbf/Xeno.hs
@@ -1,6 +1,8 @@
 {-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 
+{-# OPTIONS_GHC -Wno-unused-imports #-}
+
 module Xmlbf.Xeno
  ( fromXenoNode
  , fromRawXml
@@ -32,8 +34,8 @@
      (,) <$> decodeUtf8 k <*> unescapeXmlUtf8 v
   cs <- for (Xeno.contents x) $ \case
      Xeno.Element n1 -> fromXenoNode n1
-     Xeno.Text bs -> Xmlbf.text' =<< unescapeXmlUtf8Lazy bs
-     Xeno.CData bs -> Xmlbf.text' =<< decodeUtf8Lazy bs
+     Xeno.Text bs -> Xmlbf.textLazy' =<< unescapeXmlUtf8Lazy bs
+     Xeno.CData bs -> Xmlbf.text' =<< decodeUtf8 bs
   Xmlbf.element' n (HM.fromList as) cs
 
 -- | Parses a given UTF8-encoded raw XML fragment into @a@, using the @xeno@
@@ -61,10 +63,6 @@
 decodeUtf8 :: B.ByteString -> Either String T.Text
 {-# INLINE decodeUtf8 #-}
 decodeUtf8 bs = Bif.first show (T.decodeUtf8' bs)
-
-decodeUtf8Lazy :: B.ByteString -> Either String TL.Text
-{-# INLINE decodeUtf8Lazy #-}
-decodeUtf8Lazy bs = fmap TL.fromStrict (decodeUtf8 bs)
 
 unescapeXmlUtf8 :: B.ByteString -> Either String T.Text
 {-# INLINE unescapeXmlUtf8 #-}
diff --git a/xmlbf-xeno.cabal b/xmlbf-xeno.cabal
--- a/xmlbf-xeno.cabal
+++ b/xmlbf-xeno.cabal
@@ -1,5 +1,5 @@
 name: xmlbf-xeno
-version: 0.2.1
+version: 0.2.2
 synopsis: xeno backend support for the xmlbf library.
 homepage: https://gitlab.com/k0001/xmlbf
 bug-reports: https://gitlab.com/k0001/xmlbf/issues
@@ -30,7 +30,7 @@
     text,
     unordered-containers,
     xeno,
-    xmlbf >=0.5
+    xmlbf >=0.7
 
 test-suite test
   default-language: Haskell2010