Move throw to Unsafe exports.

CHANGES.md

@@ -6,6 +6,8 @@
 * Removes ``string-conv`` dependency so Stack build works without ``extra-deps``.
 * Brings ``Callstack`` machinery in for GHC 8.x.
 * Removes ``throw`` and ``assert`` from ``Control.Exception`` exports.
+* Removes ``unsafeShiftL`` and ``unsafeShiftR`` from ``Data.Bits`` exports.
+* Reexport ``throw`` as ``unsafeThrow`` via Unsafe module.
 
 0.1.5
 =====

src/Protolude.hs

@@ -230,7 +230,10 @@ import Control.Monad.Trans as X (
 
 -- Base types
 import Data.Int as X
-import Data.Bits as X
+import Data.Bits as X hiding (
+    unsafeShiftL
+  , unsafeShiftR
+  )
 import Data.Word as X
 import Data.Either as X
 import Data.Complex as X

src/Unsafe.hs

@@ -8,9 +8,11 @@ module Unsafe (
   unsafeLast,
   unsafeFromJust,
   unsafeIndex,
+  unsafeThrow,
 ) where
 
 import Base (Int)
+import Control.Exception as Exc
 import qualified Data.List as List
 import qualified Data.Maybe as Maybe
 
@@ -31,3 +33,6 @@ unsafeFromJust = Maybe.fromJust
 
 unsafeIndex :: [a] -> Int -> a
 unsafeIndex = (List.!!)
+
+unsafeThrow :: Exc.Exception e => e -> a
+unsafeThrow = Exc.throw