From 205643ea1459e794ea30c33294038384c84667b2 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Thu, 30 Jun 2016 17:45:39 -0400
Subject: [PATCH] Callstack for GHC 8.x.

---
 CHANGES.md  |  1 +
 src/Base.hs | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)

diff --git a/CHANGES.md b/CHANGES.md
index 86a10719b..e8cf01504 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -3,6 +3,7 @@
 
 * Removes ``printf``
 * Removes ``string-conv`` dependency so Stack build works without ``extra-deps``.
+* Brings ``Callstack`` machinery in for GHC 8.x.
 
 0.1.5
 =====
diff --git a/src/Base.hs b/src/Base.hs
index cdbfadca6..2aa51cc6f 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -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(..)