expose rest of safe functions

protolude.cabal

@@ -62,6 +62,7 @@ library
     mtl              >= 2.1 && <2.3,
     transformers     >= 0.4 && < 0.6,
     text             >= 1.2 && <1.3,
+    stm              >= 2.4 && <2.5,
     string-conv      >= 0.1 && <0.2,
     bytestring       >= 0.10 && <0.11
 

src/Bool.hs

@@ -2,12 +2,12 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 
 module Bool (
-    whenM
-  , unlessM
-  , ifM
-  , guardM
-  , bool
-  ) where
+  whenM
+, unlessM
+, ifM
+, guardM
+, bool
+) where
 
 import Data.Bool (Bool)
 import Data.Function (flip)

src/Protolude.hs

@@ -30,8 +30,21 @@ import qualified Applicative as X
 -- Maybe'ized version of partial functions
 import Safe as X (
     headMay
+  , headDef
   , initMay
+  , initDef
+  , initSafe
   , tailMay
+  , tailDef
+  , tailSafe
+  , lastDef
+  , lastMay
+  , lookupJust
+  , findJust
+  , foldr1May
+  , foldl1May
+  , atMay
+  , atDef
   )
 
 -- Applicatives
@@ -233,10 +246,10 @@ import Control.Monad.ST as ST
 
 -- Concurrency and Parallelism
 import Control.Exception as X
+import Control.Monad.STM as X
 import Control.Concurrent as X
 import Control.Concurrent.Async as X
 
-
 import Foreign.Storable as Exports (Storable)
 
 -- Read instances hiding unsafe builtins (read)