@@ -97,7 +97,7 @@ memberChar c = memberWord8 (I.c2w c)
98mkTable :: B.ByteString -> B.ByteString
98mkTable :: B.ByteString -> B.ByteString
99mkTable s = I.unsafeCreate 32 $ \t -> do
99mkTable s = I.unsafeCreate 32 $ \t -> do
100− I.memset t 0 32
100+ _ <- I.memset t 0 32
101 U.unsafeUseAsCStringLen s $ \(p, l) ->
101 U.unsafeUseAsCStringLen s $ \(p, l) ->
102 let loop n | n == l = return ()
102 let loop n | n == l = return ()
103 | otherwise = do
103 | otherwise = do