Ticket #15932: Cov.hs

File Cov.hs, 287 bytes (added by davean, 10 months ago)
Line 
1{-# LANGUAGE DeriveFunctor #-}
2{-# LANGUAGE GeneralizedNewtypeDeriving #-}
3module Cov where
4
5import Control.DeepSeq
6
7newtype F a =
8    F (Int, a)
9  deriving (Functor, NFData)
10
11
12newtype G a =
13    G (Int, a)
14  deriving (NFData)
15
16instance Functor G where
17    fmap f (G (a, b)) = G (a, f b)