Add endSimpleProgramWithCmd function.

Author: robinheghan

src/Node.gren

@@ -9,6 +9,7 @@ effect module Node where { subscription = NodeSub } exposing
     , SimpleProgram
     , defineSimpleProgram
     , endSimpleProgram
+    , endSimpleProgramWithCmd
     --
     , Program
     , ProgramConfiguration
@@ -373,6 +374,13 @@ endSimpleProgram finalTask =
     Internal.Init.Task (Task.succeed <| Task.execute finalTask)
 
 
+{-| Similar to [endSimpleProgram](#endSimpleProgram), but takes a `Cmd` instead of a `Task`.
+-}
+endSimpleProgramWithCmd : Cmd a -> Init.Task (Cmd a)
+endSimpleProgramWithCmd cmd =
+    Internal.Init.Task (Task.succeed cmd)
+
+
 -- EXIT