Как вызвать исключение и выйти из программы в Haskell?

У меня вопрос: как мне создать исключение и выйти из программы? Я записал простой пример:

-- main.hs
import Test

main = do
    Test.foo ""
    putStrLn "make some other things"

Вот модуль:

moldule Test where

foo :: String -> IO ()
foo x = do
    if null x
    then THROW EXCEPTION AND EXIT MAIN else putStrLn "okay"

Я хочу запустить это, выдать исключение и выйти из программы, но как?