withoutSuffix :: Eq a => [a] -> [a] -> Maybe [a]
withoutSuffix suff = (fmap reverse) . (stripPrefix (reverse suff)) . reverse
withoutSuffix :: Eq a => [a] -> [a] -> Maybe [a]
withoutSuffix suff = (fmap reverse) . (stripPrefix (reverse suff)) . reverse
withoutSuffix suff = (fmap reverse) . (stripPrefix (reverse suff)) . reverse