Added logAny and errorAny

zudov · zudov · commit 9b0318cd9b5b · 2015-08-20T09:33:39.000+03:00
diff --git a/docs/Control/Monad/Eff/Console.md b/docs/Control/Monad/Eff/Console.md
@@ -1,5 +1,7 @@
 ## Module Control.Monad.Eff.Console
 
+Console-related functions and effect type.
+
 #### `CONSOLE`
 
 ``` purescript
diff --git a/docs/Control/Monad/Eff/Console/Unsafe.md b/docs/Control/Monad/Eff/Console/Unsafe.md
@@ -0,0 +1,21 @@
+## Module Control.Monad.Eff.Console.Unsafe
+
+Unsafe functions to display arbitrary values.
+
+#### `logAny`
+
+``` purescript
+logAny :: forall a eff. a -> Eff (console :: CONSOLE | eff) Unit
+```
+
+Write a runtime representation of a value to the console.
+
+#### `errorAny`
+
+``` purescript
+errorAny :: forall a eff. a -> Eff (console :: CONSOLE | eff) Unit
+```
+
+Write an error with a runtime representation of a value to the console.
+
+
diff --git a/src/Control/Monad/Eff/Console.purs b/src/Control/Monad/Eff/Console.purs
@@ -1,3 +1,4 @@
+-- | Console-related functions and effect type.
 module Control.Monad.Eff.Console where
 
 import Prelude
diff --git a/src/Control/Monad/Eff/Console/Unsafe.js b/src/Control/Monad/Eff/Console/Unsafe.js
@@ -0,0 +1,18 @@
+/* global exports, console */
+"use strict";
+
+// module Control.Monad.Eff.Console.Unsafe
+
+exports.logAny = function (s) {
+  return function () {
+    console.log(s);
+    return {};
+  };
+};
+
+exports.errorAny = function (s) {
+  return function () {
+    console.error(s);
+    return {};
+  };
+};
diff --git a/src/Control/Monad/Eff/Console/Unsafe.purs b/src/Control/Monad/Eff/Console/Unsafe.purs
@@ -0,0 +1,13 @@
+-- | Unsafe functions to display arbitrary values.
+module Control.Monad.Eff.Console.Unsafe where
+
+import Prelude
+
+import Control.Monad.Eff
+import Control.Monad.Eff.Console (CONSOLE())
+
+-- | Write a runtime representation of a value to the console.
+foreign import logAny :: forall a eff. a -> Eff (console :: CONSOLE | eff) Unit
+
+-- | Write an error with a runtime representation of a value to the console.
+foreign import errorAny :: forall a eff. a -> Eff (console :: CONSOLE | eff) Unit

Original file line number	Diff line number	Diff line change
`@@ -1,3 +1,4 @@`
	`1`	`+-- \| Console-related functions and effect type.`
`1`	`2`	`module Control.Monad.Eff.Console where`
`2`	`3`
`3`	`4`	`import Prelude`