titlecase.hs

module TitleCase (titleCase) where
import Data.Char
import Debug.Trace

titleCase :: String -> String -> String
titleCase minor title = "a"

capitalize :: String -> String
capitalize (x:xs) = toUpper x : xs

splitOn :: (a -> Bool) -> [a] -> [[a]]
splitOn _ [] = []
splitOn f l@(x:xs)
  | f x = splitOn f xs
  | otherwise = let (h,t) = break f l in h:(splitOn f t)

-- myfun a b | trace ("myfun " ++ show a ++ " " ++ show b) False = undefined
-- myfun a b = ...