Use Error type from Globals

Author: paf31

README.md

@@ -9,6 +9,11 @@
     data Exception :: !
 
 
+### Type Class Instances
+
+    instance showError :: Show Error
+
+
 ### Values
 
     catchException :: forall a eff. (Error -> Eff eff a) -> Eff (err :: Exception | eff) a -> Eff eff a
@@ -17,6 +22,6 @@
 
     message :: Error -> String
 
-    stackTrace :: Error -> String
+    showErrorImpl :: Error -> String
 
     throwException :: forall a eff. Error -> Eff (err :: Exception | eff) a

src/Control/Monad/Eff/Exception.purs

@@ -5,22 +5,25 @@ import Control.Monad.Eff
 foreign import data Exception :: !
 
 foreign import data Error :: *
-			    
-foreign import message 
-  "function message(e) {\
-  \  return e.message;\
-  \}" :: Error -> String
-  
-foreign import stackTrace
-  "function stack(e) {\
-  \  return e.stack;\
+
+instance showError :: Show Error where
+  show = showErrorImpl
+
+foreign import showErrorImpl
+  "function showErrorImpl(err) {\
+  \  return err.stack ? err.stack : err.toString();\
   \}" :: Error -> String
 
 foreign import error
   "function error(msg) {\
   \  return new Error(msg);\
-  \}" :: String -> Error
+  \};" :: String -> Error
 
+foreign import message 
+  "function message(e) {\
+  \  return e.message;\
+  \}" :: Error -> String
+  
 foreign import throwException 
   "function throwException(e) {\
   \  return function() {\