basename p = reverse $ takeWhile (/= '/') $ reverse p

 dirname p  = case reverse $ dropWhile (/= '/') $ reverse p of
 [] -> "."
 p' -> p'

--------------------------------------------------

From: Mark Carroll <mark@ixod.org>
Date: Sat, 15 Jan 2005 19:17:09 -0500 (EST)
To: John Goerzen <jgoerzen@complete.org>
Subject: Re: [Haskell-cafe] Re: Utility functions

You can take the original, or this version, as being Copyright (c) 2004
Mark Carroll under the modified BSD license. At the time of writing, it's
the one at http://www.opensource.org/licenses/bsd-license.php

splitListBy :: (a -> Bool) -> [a] -> [[a]]

splitListBy isElement =
    unfoldr splitter . (ignored :)
    where
    splitter [] = Nothing
    splitter xs = Just (span isElement (tail xs))
    ignored = error "internal failure in splitListBy"

-- Mark