testsuite/tests/safeHaskell/unsafeLibs/BadImport01.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE Safe #-}
module Main where

import System.IO.Unsafe

f :: Int
f = unsafePerformIO $ putStrLn "What kind of swallow?" >> return 2

main :: IO ()
main = putStrLn $ "X is: " ++ show f