Commit d1b79ca1 authored by Mike Ledger's avatar Mike Ledger

fix for new compressed api

parent 259e6289
......@@ -40,9 +40,11 @@ tests0 = V.fromList $! T.lines
\long thing that doesn't parse\n\
\z"
sourceRadixCompressed :: R.RadixTree
sourceRadixCompressed :: R.CompressedRadixTree
sourceRadixCompressed =
R.compressBy (T.concat source) sourceRadix
case R.compressBy (T.concat source) sourceRadix of
Just ct -> ct
Nothing -> error "could not compress source"
sourceRadix :: R.RadixTree
sourceRadix = R.fromFoldable source
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment