Haskell Program to print integer entered by the user

Program

prompt s = do
 putStrLn s
 number <- getLine
 return number
main = do
 number <- prompt "Enter a integer number"
 putStrLn ("Entered number: ")
 print $ (read number :: Int)

Output

$ ghc read-int.hs 
[1 of 1] Compiling Main             ( read-int.hs, read-int.o )
Linking read-int ...
$ ./read-int 
Enter a integer number
6
Entered number: 
6