testsuite/tests/safeHaskell/safeInfered/UnsafeInfered19.hs


1
2
3
4
5
6
7
8
9
10
11

{-# OPTIONS_GHC -fwarn-unsafe -Werror #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE IncoherentInstances #-}
module UnsafeInfered19 where

class C a where
  f :: a -> String

instance C a where
  f _ = "a"