From e72d06929e46732116614ce2a3d0c6c113edae9c Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Tue, 3 Jan 2017 14:13:25 +0000
Subject: [PATCH] Hold off on exporting TypeInType machinery

---
 src/Base.hs | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/Base.hs b/src/Base.hs
index 3457359fa..971ebd114 100644
--- a/src/Base.hs
+++ b/src/Base.hs
@@ -1,8 +1,8 @@
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE Unsafe #-}
 {-# LANGUAGE BangPatterns #-}
-{-# LANGUAGE ExplicitNamespaces #-}
 {-# LANGUAGE NoImplicitPrelude #-}
+{-# LANGUAGE ExplicitNamespaces #-}
 
 module Base (
   module X,
@@ -98,12 +98,6 @@ import GHC.Stack as X (
   , withFrozenCallStack
   )
 
-{-
-import GHC.Records as X (
-    HasField(..)
-  )
--}
-
 #if ( __GLASGOW_HASKELL__ >= 710 )
 import GHC.TypeLits as X (
   Symbol,
@@ -120,10 +114,19 @@ import GHC.TypeLits as X (
   )
 #endif
 
+-- Pending GHC 8.2 we'll expose these.
+
+{-
+import GHC.Records as X (
+    HasField(..)
+  )
+
 import Data.Kind as X (
     type (*)
   , type Type
   )
+-}
+
 #endif
 
 -- Default Prelude defines this at the toplevel module, so we do as well.