[Haskell] Help : A problem with IO

Hi, getMyLine :: IO [Char] getMyLine = do c <- getChar if(c == '\n') then return "" else cs <- getMyLine return [c]