diff --git a/Dangerous.cabal b/Dangerous.cabal
--- a/Dangerous.cabal
+++ b/Dangerous.cabal
@@ -1,5 +1,5 @@
 Name:          Dangerous
-Version:       0.3.1
+Version:       0.3.2
 License:       MIT
 License-file:  LICENSE
 Category:      Error Handling
diff --git a/src/Control/Dangerous.hs b/src/Control/Dangerous.hs
--- a/src/Control/Dangerous.hs
+++ b/src/Control/Dangerous.hs
@@ -12,6 +12,7 @@
     , result
     , execute
     , extract
+    , dangerously
     , dangerize
     ) where
 
@@ -160,6 +161,9 @@
 
 execute :: (Either Exit a, [Warning]) -> IO a
 execute (r, ws) = mapM_ (hPrint stderr) ws >> extract r
+
+dangerously :: Dangerous a -> IO a
+dangerously = execute . runDangerous
 
 extract :: Either Exit a -> IO a
 extract (Left (Stop s)) = putStrLn s >> exitSuccess