Skip to content

Instantly share code, notes, and snippets.

@buggymcbugfix

buggymcbugfix/toupper.hs

Created May 24, 2017 19:46
Show Gist options
  • Save buggymcbugfix/3ba460b44b02980ec2489c6cc1d0be7c to your computer and use it in GitHub Desktop.
Save buggymcbugfix/3ba460b44b02980ec2489c6cc1d0be7c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
toupper.hs
import Data.Char(toUpper)
main = do
inpStr <- readFile "test.txt"
writeFile "output.txt" (map toUpper inpStr)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment