1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/tests/ghci.debugger/scripts/break028.hs b/testsuite/tests/ghci.debugger/scripts/break028.hs
new file mode 100644
index 0000000000..8e4ef2a3b5
--- /dev/null
+++ b/testsuite/tests/ghci.debugger/scripts/break028.hs
@@ -0,0 +1,15 @@
+{-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances, FlexibleContexts #-}
+
+type family Id x
+type instance Id Int = Int
+type instance Id Bool = Bool
+
+class Convert x y where convert :: x -> y
+instance Convert x x where convert = id
+
+f :: Convert a (Id a) => a -> Id a
+f x = convert x
+
+g :: Convert a (Id a) => a -> Id a
+g x = let x' = f x in x'
+\ No newline at end of file