testsuite/tests/ghc-regress/safeHaskell/safeLanguage/SafeLang09.hs


1
2
3
4
5
6
7
8
9
10

module Main where

import SafeLang09_A -- trusted lib
import SafeLang09_B -- untrusted plugin

main = do
    let r = res [(1::Int)]
    putStrLn $ "Result: " ++ show r 
    putStrLn $ "Result: " ++ show function