From 8c676e28de51ba7fc5cdc5e81714f20d9eafc2e6 Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Wed, 3 May 2017 10:48:48 +0100
Subject: [PATCH] expose all pointers

---
 CHANGES.md       | 1 +
 src/Protolude.hs | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/CHANGES.md b/CHANGES.md
index c7e7ba5ae..dc6904047 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -18,6 +18,7 @@
 * Mask `Type` export from `Data.Kind`.
 * Wrap `die` to take `Text` argument instead of `[Char]`.
 * Export constructors `GHC.Generics`: `(:+:)`, `(:*:)`, and `(:.:)`.
+* Expose `StablePtr`, `IntPtr` and `WordPtr` types.
 
 0.1.9
 ====
diff --git a/src/Protolude.hs b/src/Protolude.hs
index e2f82740e..5bfb5003a 100644
--- a/src/Protolude.hs
+++ b/src/Protolude.hs
@@ -516,7 +516,9 @@ import Control.Concurrent.Async as X (
   , concurrently
   )
 
+import Foreign.Ptr as X (IntPtr, WordPtr)
 import Foreign.Storable as X (Storable)
+import Foreign.StablePtr as X (StablePtr)
 
 -- Read instances hiding unsafe builtins (read)
 import Text.Read as X (