blob: b7a565934e650e6ca7f282b13a5df837dcd350bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# LANGUAGE ImplicitParams #-}
-- Like tcrun024, but cross module
module Main where
import TcRun025_B
just = [Just "fred",Just "bill"]
main = do { putStrLn (let ?p = "ok1" in fc1);
putStrLn (let ?p = "ok2" in fc2);
putStrLn (show (fd1 just)) ;
putStrLn (show (fd2 just)) }
|