Merge pull request #20 from fehrenbach/master

Add console.time and timeEnd

Author: garyb

src/Effect/Class/Console.purs

@@ -29,3 +29,9 @@ info = liftEffect <<< EffConsole.info
 
 infoShow :: forall m a. MonadEffect m => Show a => a -> m Unit
 infoShow = liftEffect <<< EffConsole.infoShow
+
+time :: forall m. MonadEffect m => String -> m Unit
+time = liftEffect <<< EffConsole.time
+
+timeEnd :: forall m. MonadEffect m => String -> m Unit
+timeEnd = liftEffect <<< EffConsole.timeEnd

src/Effect/Console.js

@@ -27,3 +27,17 @@ exports.info = function (s) {
     return {};
   };
 };
+
+exports.time = function (s) {
+  return function () {
+    console.time(s);
+    return {};
+  };
+};
+
+exports.timeEnd = function (s) {
+  return function () {
+    console.timeEnd(s);
+    return {};
+  };
+};

src/Effect/Console.purs

@@ -44,3 +44,9 @@ foreign import info
 -- | `String`.
 infoShow :: forall a. Show a => a -> Effect Unit
 infoShow a = info (show a)
+
+-- | Start a named timer.
+foreign import time :: String -> Effect Unit
+
+-- | Stop a named timer and print time since it started in milliseconds.
+foreign import timeEnd :: String -> Effect Unit