Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / typecheck / should_run / tcrun025.hs
1 {-# LANGUAGE ImplicitParams #-}
2
3 -- Like tcrun024, but cross module
4
5 module Main where
6 import TcRun025_B
7
8 just = [Just "fred",Just "bill"]
9
10 main = do { putStrLn (let ?p = "ok1" in fc1);
11 putStrLn (let ?p = "ok2" in fc2);
12 putStrLn (show (fd1 just)) ;
13 putStrLn (show (fd2 just)) }
14
15