gitlab-ci: Move hadrian-ghc-in-ghci job first
[ghc.git] / testsuite / tests / typecheck / should_compile / T10347.hs
1 {-# OPTIONS_GHC -Wunused-imports -Wunused-top-binds #-}
2 module T10347 (N, mkN, mkSum) where
3
4 import Data.Coerce
5 import Data.Monoid (Sum(Sum))
6
7 newtype N a = MkN Int
8
9 mkN :: Int -> N a
10 mkN = coerce -- Should mark MkN (a locally defined constructor) as used
11
12 mkSum :: Int -> Sum Int
13 mkSum = coerce -- Should mark Sum (an imported constructor) as used