Do not pad input to blanker. This results is an extra text node at the end of the XML document, which can mess things up

Author: newhoggy

project.sh

@@ -26,7 +26,7 @@ case "$cmd" in
     ;;
 
   test)
-    cabal new-test -j8 --enable-tests --disable-documentation \
+    cabal new-test -j8 --enable-tests --disable-documentation --test-show-details=direct \
       $CABAL_FLAGS "$@"
     ;;
 

src/HaskellWorks/Data/Xml/Succinct/Cursor/BlankedXml.hs

@@ -11,9 +11,8 @@ module HaskellWorks.Data.Xml.Succinct.Cursor.BlankedXml
 import GHC.Generics
 import HaskellWorks.Data.Xml.Internal.Blank
 
-import qualified Data.ByteString              as BS
-import qualified Data.ByteString.Lazy         as LBS
-import qualified HaskellWorks.Data.ByteString as BS
+import qualified Data.ByteString      as BS
+import qualified Data.ByteString.Lazy as LBS
 
 newtype BlankedXml = BlankedXml
   { unblankedXml :: [BS.ByteString]
@@ -26,7 +25,7 @@ class FromBlankedXml a where
   fromBlankedXml :: BlankedXml -> a
 
 bsToBlankedXml :: BS.ByteString -> BlankedXml
-bsToBlankedXml bs = BlankedXml (blankXml (BS.chunkedBy 4064 bs))
+bsToBlankedXml bs = BlankedXml (blankXml [bs])
 
 lbsToBlankedXml :: LBS.ByteString -> BlankedXml
-lbsToBlankedXml lbs = BlankedXml (blankXml (BS.resegmentPadded 4096 (LBS.toChunks lbs)))
+lbsToBlankedXml lbs = BlankedXml (blankXml (LBS.toChunks lbs))

test/HaskellWorks/Data/Xml/Succinct/CursorSpec.hs

@@ -13,7 +13,7 @@
 module HaskellWorks.Data.Xml.Succinct.CursorSpec(spec) where
 
 import Control.Monad
-import Data.String
+import Data.Semigroup                                  ((<>))
 import Data.Word
 import HaskellWorks.Data.BalancedParens.BalancedParens
 import HaskellWorks.Data.BalancedParens.Simple
@@ -30,15 +30,11 @@ import HaskellWorks.Hspec.Hedgehog
 import Hedgehog
 import Test.Hspec
 
-import qualified Data.ByteString                              as BS
 import qualified Data.ByteString                              as BS
 import qualified Data.Text                                    as T
 import qualified Data.Text.Encoding                           as T
 import qualified Data.Vector.Storable                         as DVS
-import qualified Data.Vector.Storable                         as DVS
 import qualified HaskellWorks.Data.FromByteString             as BS
-import qualified HaskellWorks.Data.FromByteString             as BS
-import qualified HaskellWorks.Data.TreeCursor                 as TC
 import qualified HaskellWorks.Data.TreeCursor                 as TC
 import qualified HaskellWorks.Data.Xml.Succinct.Cursor.Create as CC