Skip to content

Instantly share code, notes, and snippets.

@scan

scan/gist:5992395

Created July 13, 2013 22:03
Show Gist options
  • Save scan/5992395 to your computer and use it in GitHub Desktop.
Save scan/5992395 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
toUnderscore (a:b:c) | isAlpha a, isUpper b = a : '_' : toUnderscore (toLower b : c)
toUnderscore (a:b) = a : toUnderscore b
toUnderscore x = x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment