From eb466c9feb66a7ed7da5809f89082a3bd669ddaa Mon Sep 17 00:00:00 2001
From: Gary Burgess <gary.burgess@gmail.com>
Date: Tue, 27 May 2014 01:04:17 +0100
Subject: [PATCH] Add Javascript's Error type

---
 README.md       | 10 ++++++++++
 src/Global.purs | 20 +++++++++++++++++++-
 2 files changed, 29 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 3be2c78..a4e53a9 100644
--- a/README.md
+++ b/README.md
@@ -2,6 +2,16 @@
 
 ## Module Global
 
+### Types
+
+    data Error :: *
+
+
+### Type Class Instances
+
+    instance showError :: Show Error
+
+
 ### Values
 
     infinity :: Prim.Number
diff --git a/src/Global.purs b/src/Global.purs
index fc2deab..85df3a2 100644
--- a/src/Global.purs
+++ b/src/Global.purs
@@ -1,4 +1,12 @@
-module Global where
+module Global
+  ( nan
+  , isNaN
+  , infinity
+  , isFinite
+  , readInt
+  , readFloat
+  , Error(..)
+  ) where
 
 foreign import nan "var nan = NaN;" :: Number
 
@@ -16,3 +24,13 @@ foreign import readInt
   \}" :: Number -> String -> Number
 
 foreign import readFloat "var readFloat = parseFloat;" :: String -> Number
+
+foreign import data Error :: *
+
+instance showError :: Show Error where
+  show = showErrorImpl
+
+foreign import showErrorImpl
+  "function showErrorImpl(err) {\
+  \  return err.stack ? err.stack : err.toString();\
+  \}" :: Error -> String