blob: c6d63842c239ce844b0e5c177a384bf0071b6092 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE Safe #-}
-- | Import unsafe module Foreign.Unsafe to make sure it fails
module Main where
import System.IO.Unsafe (unsafePerformIO)
f :: Int
f = unsafePerformIO $ putStrLn "What kind of swallow?" >> return 2
main :: IO ()
main = putStrLn $ "X is: " ++ show f
|
