@@ -237,7 +237,7 @@ unescape s = unsafePerformIO $ do
237 start <- Z.take 2
237 start <- Z.take 2
238 let !slash = B.unsafeHead start
238 let !slash = B.unsafeHead start
239 !t = B.unsafeIndex start 1
239 !t = B.unsafeIndex start 1
240− escape = case B.findIndex (==t) "\"\\/ntbrfu" of
240+ escape = case B.elemIndex t "\"\\/ntbrfu" of
241 Just i -> i
241 Just i -> i
243 if slash /= BACKSLASH || escape == 255
243 if slash /= BACKSLASH || escape == 255