diff --git a/protolude.cabal b/protolude.cabal index 172380b85..03018910f 100644 --- a/protolude.cabal +++ b/protolude.cabal @@ -35,10 +35,10 @@ Source-Repository head library exposed-modules: Protolude + Unsafe other-modules: Exceptions - Unsafe Base Applicative Bool diff --git a/src/Protolude.hs b/src/Protolude.hs index 3d2cc1a8f..81c581060 100644 --- a/src/Protolude.hs +++ b/src/Protolude.hs @@ -604,9 +604,9 @@ show x = toS (PBase.show x) {-# SPECIALIZE show :: Show a => a -> String #-} #if MIN_VERSION_base(4,8,0) -die :: Text -> IO () +die :: Text -> IO a die err = System.Exit.die (toS err) #else -die :: Text -> IO () +die :: Text -> IO a die err = hPutStrLn stderr err >> exitFailure #endif