make it functional 함수형 프로그래밍의 모든 것

Hakell의 Indentation문법 때문에 한동안 헤메었습니다.
indentation에 조금 익숙해져서 다시 예제들을 직접 쳐 나가다 보니 금방 다시 막힙니다.

35페이지의
askForWords = do
putStrLn "Please enter a word: "
word <- getLine
if word == ""
then return []
else return (word : askForWords)
를 ask01.hs로 저장하고 :l ask1.hs로 불러들이니

ask1.hs:6:24:
Couldn't match expected type '[]' against inferred type 'IO'
Expected type: [String]
Inferred type: IO [a]
In the second argument of '(:)', namely 'askForWords'
In the expression: word : askForWords
Failed, modules loaded: none.
이라는 에러가 납니다.

ask1.hs 머리에 module Main where; import IO를 기록해도 같은 에러가 납니다.(삽질하고 있습니다...)
뭔가 타입이 맞지 않는다고 하는 것 같은데 데이터 타입을 따로 지정해 주어야 하나요?