From d39e014533909c5e4071093b5d4fcf9fa74ef46d Mon Sep 17 00:00:00 2001
From: Stephen Diehl <stephen.m.diehl@gmail.com>
Date: Mon, 6 Jun 2016 08:50:12 -0400
Subject: [PATCH] unsafeFromJust

---
 README.md     | 2 +-
 src/Unsafe.hs | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index 4c7512b8a..8ae112330 100644
--- a/README.md
+++ b/README.md
@@ -37,7 +37,7 @@ Supports:
  * GHC 7.10.1
  * GHC 7.10.2
  * GHC 7.10.3
- * GHC HEAD
+ * GHC 8.0.1
 
 Usage
 -----
diff --git a/src/Unsafe.hs b/src/Unsafe.hs
index 5e0ba5b83..57c01e47f 100644
--- a/src/Unsafe.hs
+++ b/src/Unsafe.hs
@@ -6,7 +6,7 @@ module Unsafe (
   unsafeTail,
   unsafeInit,
   unsafeLast,
-  fromJust,
+  unsafeFromJust,
   unsafeIndex,
 ) where
 
@@ -26,8 +26,8 @@ unsafeInit = List.init
 unsafeLast :: [a] -> a
 unsafeLast = List.last
 
-fromJust :: Maybe.Maybe a -> a
-fromJust = Maybe.fromJust
+unsafeFromJust :: Maybe.Maybe a -> a
+unsafeFromJust = Maybe.fromJust
 
 unsafeIndex :: [a] -> Int -> a
 unsafeIndex = (List.!!)