Merge pull request #2 from darky/main

src/act.gleam

@@ -310,3 +310,13 @@ pub fn try_each(
     })
   }
 }
+
+/// Merges a nested `Action` into a single layer.
+///
+pub fn flatten(action: Action(Action(b, a), a)) -> Action(b, a) {
+  fn(state) {
+    let #(state, action) = action(state)
+    let #(state, result) = action(state)
+    #(state, result)
+  }
+}

test/act_test.gleam

@@ -46,4 +46,4 @@ pub fn main() {
 
   io.println("The result is " <> int.to_string(result))
   io.println("The state is " <> int.to_string(final_state))
-}
+}