1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/safeHaskell/safeLanguage/SafeLang09_B.hs b/testsuite/tests/safeHaskell/safeLanguage/SafeLang09_B.hs
new file mode 100644
index 0000000000..76e0fe5a1c
--- /dev/null
+++ b/testsuite/tests/safeHaskell/safeLanguage/SafeLang09_B.hs
@@ -0,0 +1,19 @@
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE OverlappingInstances #-}
+
+-- Untrusted plugin! Don't wan't it changing behaviour of our
+-- trusted code
+module SafeLang09_B where
+
+import SafeLang09_A
+
+instance Pos a where
+    res _ = False
+
+instance Pos [Int] where
+    res _ = error "This curry is poisoned!"
+
+function :: Int
+function = 3
+
+