equal
deleted
inserted
replaced
239 deleteBy2 eq x (y:ys) = if x `eq` y then ys else y : deleteBy2 eq x ys |
239 deleteBy2 eq x (y:ys) = if x `eq` y then ys else y : deleteBy2 eq x ys |
240 |
240 |
241 deleteFirstsBy2 :: (a -> b -> Bool) -> [a] -> [b] -> [a] |
241 deleteFirstsBy2 :: (a -> b -> Bool) -> [a] -> [b] -> [a] |
242 deleteFirstsBy2 eq = foldl (flip (deleteBy2 (flip eq))) |
242 deleteFirstsBy2 eq = foldl (flip (deleteBy2 (flip eq))) |
243 |
243 |
|
244 sanitizeName :: B.ByteString -> B.ByteString |
|
245 sanitizeName = B.map sc |
|
246 where |
|
247 sc c | isAlphaNum c = c |
|
248 | otherwise = '_' |