fork download

main = do
	 nombre <- getLine
	 nota1 <- readNum
	 nota2 <- readNum
	 promedio <- (nota1 + nota2) / 2
	 if promedio >= 60 
	 	then 
			putStr(nombre ++ " ha pasado el curso")
	 	else do
			putStr(nombre ++ " no ha pasado el curso")
       where
         readNum :: IO Float
         readNum = do
         	line <- getLine
         	readIO line

[1 of 1] Compiling Main             ( prog.hs, prog.o )

prog.hs:5:14:
    Couldn't match expected type `IO t' against inferred type `Float'
    In a 'do' expression: promedio <- (nota1 + nota2) / 2
    In the expression:
        do nombre <- getLine
           nota1 <- readNum
           nota2 <- readNum
           promedio <- (nota1 + nota2) / 2
           ....
    In the definition of `main':
        main = do nombre <- getLine
                  nota1 <- readNum
                  nota2 <- readNum
                  ....
             where
                 readNum :: IO Float
                 readNum = do line <- getLine
                              ....

Standard output is empty