/LambdaConf/src/Funcoes.hs

 1
 2module Funcoes where
 3
 4import Char
 5
 6-- fun??es adcinadas por Marcio Alves
 7ask :: String -> IO String
 8ask question = do putStr question
 9                  getLine
10                  
11askC :: String -> IO Char
12askC question = do putStr question
13                   getChar
14                   
15toMaiuscula :: String -> String
16toMaiuscula [] = []
17toMaiuscula (x:xs) = (toUpper x) : toMaiuscula xs