Как мне сбросить stdin в Haskell?

Я пытаюсь написать клон urlview на Haskell. Программа читает сообщение (переданное через STDIN), извлекает все URL-адреса и просит пользователя выбрать один из них.

После прочтения сообщения STDIN, очевидно, достигает EOF. В Python я сбрасываю STDIN следующим образом

message = sys.stdin.read()
sys.stdin = open('/dev/tty')
selected_index = raw_input('Which URL to open? ')

Как добиться того же в Haskell?