Commit a1fbd402 authored by Mike Ledger's avatar Mike Ledger

nasty habit

parent a9f5a585
Pipeline #50133036 failed with stage
in 19 seconds
......@@ -266,7 +266,6 @@ lookup_ :: RadixParsing r => r a -> Text -> Maybe Text
lookup_ r t = fst <$> Data.RadixTree.lookup r t
instance RadixParsing RadixTree where
{-# INLINE keys #-}
keys = go []
where
go nil (RadixAccept l xs a) = (l,a) : V.foldr (\(RadixNode _ x) xs' -> go xs' x) nil xs
......@@ -312,7 +311,6 @@ instance RadixParsing RadixTree where
instance RadixParsing CompressedRadixTree where
{-# INLINE keys #-}
keys (CompressedRadixTree arr crt) = go [] crt
where
fromSlice (TextSlice offs len) = TI.text arr offs len
......
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