Add grouped function

src/Effect/Class/Console.purs

@@ -1,5 +1,6 @@
 module Effect.Class.Console where
 
+import Control.Bind (discard, bind, pure)
 import Data.Function ((<<<))
 import Data.Show (class Show)
 import Data.Unit (Unit)
@@ -56,3 +57,10 @@ groupCollapsed = liftEffect <<< EffConsole.groupCollapsed
 
 groupEnd :: forall m. MonadEffect m => m Unit
 groupEnd = liftEffect EffConsole.groupEnd
+
+grouped :: forall m a. MonadEffect m => String -> m a -> m a
+grouped name inner = do
+  group name
+  result <- inner
+  groupEnd
+  pure result

src/Effect/Console.purs

@@ -1,5 +1,6 @@
 module Effect.Console where
 
+import Control.Bind (discard, bind, pure)
 import Effect (Effect)
 
 import Data.Show (class Show, show)
@@ -76,3 +77,12 @@ foreign import groupCollapsed :: String -> Effect Unit
 
 -- | Exits the current inline group in the console.
 foreign import groupEnd :: Effect Unit
+
+-- | Perform an effect within the context of an inline group in the console.
+-- | Calls `group` and `groupEnd` before and after the effect, respectively.
+grouped :: forall a. String -> Effect a -> Effect a
+grouped name inner = do
+  group name
+  result <- inner
+  groupEnd
+  pure result

test/Main.purs

@@ -18,3 +18,5 @@ main = do
   Console.log "log in groupCollapsed"
   Console.groupEnd
   Console.groupEnd
+  Console.grouped "grouped" do 
+    Console.log "log in grouped"

test/expected_output.txt

@@ -7,3 +7,5 @@ group
   log in group
   groupCollapsed
     log in groupCollapsed
+grouped
+  log in grouped