blob: 7c5e5a1929fae8941d65cfcf2333ef688b4ba300 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{-# OPTIONS_GHC -fwarn-unsafe #-}
{-# LANGUAGE FlexibleInstances #-}
-- | Same as `SH_Overlap6`, but now we are inferring safety. Safe since
-- overlapped instance declares itself overlappable.
module SH_Overlap10 where
import SH_Overlap10_A
instance
{-# OVERLAPS #-}
C [a] where
f _ = "[a]"
test :: String
test = f ([1,2,3,4] :: [Int])
|