[commit: ghc] master: Fix up ghci044 (fd47e26)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/fd47e261af27a4ce274b6bd253721cff06225914/ghc

>---------------------------------------------------------------

commit fd47e261af27a4ce274b6bd253721cff06225914
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Thu Jul 31 21:37:01 2014 +0100

    Fix up ghci044


>---------------------------------------------------------------

fd47e261af27a4ce274b6bd253721cff06225914
 testsuite/tests/ghci/scripts/ghci044.script | 2 ++
 testsuite/tests/ghci/scripts/ghci044.stdout | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/ghci044.script b/testsuite/tests/ghci/scripts/ghci044.script
index b89ede3..d6f12ad 100644
--- a/testsuite/tests/ghci/scripts/ghci044.script
+++ b/testsuite/tests/ghci/scripts/ghci044.script
@@ -10,4 +10,6 @@ instance {-# OVERLAPPABLE #-} C a => C [a] where f xs = "Third"
 f [5::Int]  -- Should be fine
 instance {-# OVERLAPPABLE #-} C a => C [a] where f xs = "Fourth"
 f [6::Int]  -- Should be fine too, overrides
+instance C Bool where { f _ = "Bool" }
+f [True]  -- Should be fine too, overrides
 
diff --git a/testsuite/tests/ghci/scripts/ghci044.stdout b/testsuite/tests/ghci/scripts/ghci044.stdout
new file mode 100644
index 0000000..eadd22f
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/ghci044.stdout
@@ -0,0 +1,4 @@
+"First"
+"First"
+"First"
+"Fourth"