[commit: ghc] master: Fix some tests that were broken by D861 (32a9ead)

[git at git.haskell.org]

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

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

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

commit 32a9eada8dc4f61a2fb801edf1fda822cb56e0dd
Author: Eric Seidel <gridaphobe at gmail.com>
Date:   Wed Sep 2 20:17:01 2015 +0200

    Fix some tests that were broken by D861
    
    I didn't realize that `./validate` does not run every test :(
    
    Test Plan: ./validate --slow
    
    Update submodule hpc.
    
    Differential Revision: https://phabricator.haskell.org/D1204


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

32a9eada8dc4f61a2fb801edf1fda822cb56e0dd
 libraries/hpc                                      |  2 +-
 testsuite/.gitignore                               |  1 +
 testsuite/tests/typecheck/should_run/IPLocation.hs |  3 +-
 .../tests/typecheck/should_run/IPLocation.stdout   | 56 +++++++++++-----------
 4 files changed, 32 insertions(+), 30 deletions(-)

diff --git a/libraries/hpc b/libraries/hpc
index a9ecba1..da5928c 160000
--- a/libraries/hpc
+++ b/libraries/hpc
@@ -1 +1 @@
-Subproject commit a9ecba162ae307acf12a1a783dbe1cf6ebb5729d
+Subproject commit da5928ccf4e369f6985ef291351d074918b88019
diff --git a/testsuite/.gitignore b/testsuite/.gitignore
index 7496958..10abec4 100644
--- a/testsuite/.gitignore
+++ b/testsuite/.gitignore
@@ -1481,6 +1481,7 @@ mk/ghcconfig*_bin_ghc*.exe.mk
 /tests/typecheck/should_fail/tcfail149
 /tests/typecheck/should_run/Defer01
 /tests/typecheck/should_run/IPRun
+/tests/typecheck/should_run/IPLocation
 /tests/typecheck/should_run/T1624
 /tests/typecheck/should_run/T1735
 /tests/typecheck/should_run/T2722
diff --git a/testsuite/tests/typecheck/should_run/IPLocation.hs b/testsuite/tests/typecheck/should_run/IPLocation.hs
index ffc377b..63f73d2 100644
--- a/testsuite/tests/typecheck/should_run/IPLocation.hs
+++ b/testsuite/tests/typecheck/should_run/IPLocation.hs
@@ -2,7 +2,8 @@
 {-# OPTIONS_GHC -dcore-lint #-}
 module Main where
 
-import GHC.Stack
+import GHC.Exception
+import GHC.Types
 
 f0 = putStrLn $ showCallStack ?loc
      -- should just show the location of ?loc
diff --git a/testsuite/tests/typecheck/should_run/IPLocation.stdout b/testsuite/tests/typecheck/should_run/IPLocation.stdout
index 6dca721..47de194 100644
--- a/testsuite/tests/typecheck/should_run/IPLocation.stdout
+++ b/testsuite/tests/typecheck/should_run/IPLocation.stdout
@@ -1,28 +1,28 @@
-?loc, called at IPLocation.hs:7:31 in main:Main
-
-?loc, called at IPLocation.hs:11:31 in main:Main
-  f1, called at IPLocation.hs:39:11 in main:Main
-
-?loc, called at IPLocation.hs:15:34 in main:Main
-  f2, called at IPLocation.hs:40:11 in main:Main
-
-?loc, called at IPLocation.hs:16:34 in main:Main
-  f2, called at IPLocation.hs:40:11 in main:Main
-
-?loc, called at IPLocation.hs:41:48 in main:Main
-  x, called at IPLocation.hs:21:8 in main:Main
-
-?loc, called at IPLocation.hs:42:48 in main:Main
-  x, called at IPLocation.hs:26:8 in main:Main
-  f4, called at IPLocation.hs:42:11 in main:Main
-
-?loc3, called at IPLocation.hs:43:48 in main:Main
-
-?loc, called at IPLocation.hs:34:33 in main:Main
-  f6, called at IPLocation.hs:35:8 in main:Main
-  f6, called at IPLocation.hs:35:8 in main:Main
-  f6, called at IPLocation.hs:35:8 in main:Main
-  f6, called at IPLocation.hs:35:8 in main:Main
-  f6, called at IPLocation.hs:35:8 in main:Main
-  f6, called at IPLocation.hs:44:11 in main:Main
-
+CallStack:
+  ?loc, called at IPLocation.hs:8:31 in main:Main
+CallStack:
+  ?loc, called at IPLocation.hs:12:31 in main:Main
+  f1, called at IPLocation.hs:40:11 in main:Main
+CallStack:
+  ?loc, called at IPLocation.hs:16:34 in main:Main
+  f2, called at IPLocation.hs:41:11 in main:Main
+CallStack:
+  ?loc, called at IPLocation.hs:17:34 in main:Main
+  f2, called at IPLocation.hs:41:11 in main:Main
+CallStack:
+  ?loc, called at IPLocation.hs:42:48 in main:Main
+  x, called at IPLocation.hs:22:8 in main:Main
+CallStack:
+  ?loc, called at IPLocation.hs:43:48 in main:Main
+  x, called at IPLocation.hs:27:8 in main:Main
+  f4, called at IPLocation.hs:43:11 in main:Main
+CallStack:
+  ?loc3, called at IPLocation.hs:44:48 in main:Main
+CallStack:
+  ?loc, called at IPLocation.hs:35:33 in main:Main
+  f6, called at IPLocation.hs:36:8 in main:Main
+  f6, called at IPLocation.hs:36:8 in main:Main
+  f6, called at IPLocation.hs:36:8 in main:Main
+  f6, called at IPLocation.hs:36:8 in main:Main
+  f6, called at IPLocation.hs:36:8 in main:Main
+  f6, called at IPLocation.hs:45:11 in main:Main