Elm 0.18 confirm Task

Confirm.js

// Native/Confirm.js

  var _user$project$Native_Confirm = function () {
        var scheduler = _elm_lang$core$Native_Scheduler;
    
        function confirmTask(prompt, successValue, failValue) {
            return scheduler.nativeBinding(function (callback) {
                if (window.confirm(prompt)) {
                    callback(scheduler.succeed(successValue));
                } else {
                    callback(scheduler.fail(failValue));
                }
            });
        };
    
        return {
            confirmTask: F3(confirmTask),
        }
    }()
    
    
// In addition you need this Elm code:
  
  
//      import Native.Confirm
//
//      {-| Provided with a prompt, a success Msg and a failure Msg, use standard
//      window.confirm to decide which to run and run it.
//      
//      -}
//      confirm : String -> Msg -> Msg -> Cmd Msg
//      confirm prompt success fail =
//          confirmTask prompt success fail |> runConfirm
//  
//      confirmTask : String -> b -> a -> Task.Task a b
//      confirmTask =
//          Native.Confirm.confirmTask
//      
//      runConfirm : Task.Task Msg Msg -> Cmd Msg
//      runConfirm task =
//          Task.attempt
//              (\result ->
//                  case result of
//                      Ok success ->
//                          success
//      
//                      Err fail ->
//                          fail
//              )
//              task