Fix some tests that were broken by D861
authorEric Seidel <gridaphobe@gmail.com>
Wed, 2 Sep 2015 18:17:01 +0000 (20:17 +0200)
committerThomas Miedema <thomasmiedema@gmail.com>
Wed, 2 Sep 2015 18:24:33 +0000 (20:24 +0200)
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

libraries/hpc
testsuite/.gitignore
testsuite/tests/typecheck/should_run/IPLocation.hs
testsuite/tests/typecheck/should_run/IPLocation.stdout

index a9ecba1..da5928c 160000 (submodule)
@@ -1 +1 @@
-Subproject commit a9ecba162ae307acf12a1a783dbe1cf6ebb5729d
+Subproject commit da5928ccf4e369f6985ef291351d074918b88019
index 7496958..10abec4 100644 (file)
@@ -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
index ffc377b..63f73d2 100644 (file)
@@ -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
index 6dca721..47de194 100644 (file)
@@ -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