Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 146 Bytes
infixr 1 ?
True ? x = const x
False ? _ = id
x = True ? "ohai" $ "obai"
y = False ? "ohai" $ "obai"
main = do putStrLn x
putStrLn y