Ticket #15932: test.hs

File test.hs, 320 bytes (added by davean, 10 months ago)
Line 
1module Main where
2
3import Control.DeepSeq
4import Cov
5
6main :: IO ()
7main = do
8  let f = fmap (+3) $ F (1, 2::Int)
9  f `deepseq` case f of
10    F (1, 5) -> print "F Success"
11    _ -> print "F Failure"
12  let g = fmap (+3) $ G (1, 2::Int)
13  g `deepseq` case g of
14    G (1, 5) -> print "G Success"
15    _ -> print "G Failure"