diff --git a/src/Effect/Class/Console.purs b/src/Effect/Class/Console.purs index 1fbaee7..721a30c 100644 --- a/src/Effect/Class/Console.purs +++ b/src/Effect/Class/Console.purs @@ -33,5 +33,8 @@ infoShow = liftEffect <<< EffConsole.infoShow time :: forall m. MonadEffect m => String -> m Unit time = liftEffect <<< EffConsole.time +timeLog :: forall m. MonadEffect m => String -> m Unit +timeLog = liftEffect <<< EffConsole.timeLog + timeEnd :: forall m. MonadEffect m => String -> m Unit timeEnd = liftEffect <<< EffConsole.timeEnd diff --git a/src/Effect/Console.js b/src/Effect/Console.js index db3d854..b757279 100644 --- a/src/Effect/Console.js +++ b/src/Effect/Console.js @@ -35,6 +35,13 @@ exports.time = function (s) { }; }; +exports.timeLog = function (s) { + return function () { + console.timeLog(s); + return {}; + }; +}; + exports.timeEnd = function (s) { return function () { console.timeEnd(s); diff --git a/src/Effect/Console.purs b/src/Effect/Console.purs index 5ae6cf2..9cb99c5 100644 --- a/src/Effect/Console.purs +++ b/src/Effect/Console.purs @@ -48,5 +48,8 @@ infoShow a = info (show a) -- | Start a named timer. foreign import time :: String -> Effect Unit +-- | Print the time since a named timer started in milliseconds. +foreign import timeLog :: String -> Effect Unit + -- | Stop a named timer and print time since it started in milliseconds. foreign import timeEnd :: String -> Effect Unit