Callstack for GHC 8.x.

2016-06-30 17:45:39 -04:00
parent fa58c5452a
commit 205643ea14
2 changed files with 20 additions and 0 deletions
@@ -60,6 +60,25 @@ import GHC.OverloadedLabels as X (
    IsLabel(..)
  )

+import GHC.ExecutionStack as X (
+    Location(..),
+  , SrcLoc(..)
+  , getStackTrace
+  , showStackTrace
+  )
+
+import GHC.Stack as X (
+  , CallStack
+  , HasCallStack
+  , callStack
+  , SrcLoc
+  , prettySrcLoc
+  , currentCallStack
+  , getCallStack
+  , showCallStack
+  , prettyCallStack
+  )
+
 {-
 import GHC.Records as X (
    HasField(..)