)
where
-import Control.Monad.Trans
import Data.Char
import Data.List
-import Foreign
-import Foreign.C
import Network.URI
-- |> splitBy (== ':') "ab:c:def"
of (last , [] ) -> last : []
(first, sep:rest) -> first : splitBy isSeparator rest
--- |> joinWith ':' ["ab", "c", "def"]
+-- |> joinWith ":" ["ab", "c", "def"]
-- > ==> "ab:c:def"
joinWith :: [a] -> [[a]] -> [a]
joinWith separator xs