@@ -398,8 +398,8 @@ tl_inits = L.inits `eqP` (map unpackS . TL.inits)
398398t_tails = L.tails `eqP` (map unpackS . T.tails)
399399tl_tails = L.tails `eqP` (map unpackS . TL.tails)
400400
401−findSplit s t = let (x,xs) = T.find s t
402− in x : L.map (T.drop (T.length s)) xs
401+findSplit s t = case T.find s t of
402+ (x,xs) -> x : L.map (T.drop (T.length s)) xs
403403
404404t_findSplit s = T.split s `eq` findSplit s
405405t_split_split s = T.split s `eq` Slow.split s