5b9954c12e6c88c24c7ce10467976501852d95aa
[ghc.git] / testsuite / tests / safeHaskell / safeLanguage / SafeLang10_B.hs
1 {-# LANGUAGE FlexibleInstances #-}
2 {-# LANGUAGE OverlappingInstances #-}
3 {-# LANGUAGE Safe #-}
4
5 -- Untrusted plugin! Don't wan't it changing behaviour of our
6 -- trusted code
7 module SafeLang10_B where
8
9 import SafeLang10_A
10
11 instance Pos a where
12 res _ = False
13
14 instance Pos [Int] where
15 res _ = error "This curry is poisoned!"
16
17 function :: Int
18 function = 3
19
20