Merge pull request #7 from hdgarrood/unsafe-throw

Add unsafeThrowException and unsafeThrow

Author: paf31

bower.json

@@ -20,6 +20,6 @@
     "package.json"
   ],
   "dependencies": {
-    "purescript-eff": "^0.1.0"
+    "purescript-eff": "^0.1.2"
   }
 }

docs/Control/Monad/Eff/Exception/Unsafe.md

@@ -0,0 +1,20 @@
+## Module Control.Monad.Eff.Exception.Unsafe
+
+#### `unsafeThrowException`
+
+``` purescript
+unsafeThrowException :: forall a. Error -> a
+```
+
+Throw an exception in pure code. This function should be used very
+sparingly, as it can cause unexpected crashes at runtime.
+
+#### `unsafeThrow`
+
+``` purescript
+unsafeThrow :: forall a. String -> a
+```
+
+Defined as `unsafeThrowException <<< error`.
+
+

src/Control/Monad/Eff/Exception/Unsafe.purs

@@ -0,0 +1,15 @@
+module Control.Monad.Eff.Exception.Unsafe where
+
+import Prelude
+import Control.Monad.Eff
+import Control.Monad.Eff.Unsafe
+import Control.Monad.Eff.Exception
+
+-- | Throw an exception in pure code. This function should be used very
+-- | sparingly, as it can cause unexpected crashes at runtime.
+unsafeThrowException :: forall a. Error -> a
+unsafeThrowException = unsafePerformEff <<< throwException
+
+-- | Defined as `unsafeThrowException <<< error`.
+unsafeThrow :: forall a. String -> a
+unsafeThrow = unsafeThrowException <<< error