Haskell beginner help

I'm learning haskell and I stumbled upon a problem. Here's the code:

module Main
  where

main = do putStr "Input your name: "
          s <- getLine
          putStrLn s
          main

But after compiling and running, the prompt string doesn't get printed until I input stuff, like this:

foo
Input your name: foo
bar
Input your name: bar

When running the code in the interpreter, everything's alright. What's the problem?

Okay, one more thing. I want the program to stop when :q is entered. I wanted to do it like this:

main = do putStr "Input your name: "
          hFlush stdout
          s <- getLine
          putStrLn s
          if (s /= ":q") then main

But it doesn't work. How should I do that?