Skip to content

Instantly share code, notes, and snippets.

@munro

munro/strToTitle.hs

Created March 15, 2014 00:13
Show Gist options
  • Save munro/9559754 to your computer and use it in GitHub Desktop.
Save munro/9559754 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
strToTitle.hs
import GHC.Unicode
strToTitle str = [if isSpace (fst ch) then toTitle (snd ch) else snd ch | ch <- (zip (" " ++ str) str)]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment