confirm in ELM using Native

Confirm.elm

module Confirm exposing (confirm)

import Native.Confirm
import Task exposing (Task)


confirm : String -> Task () ()
confirm str =
    Native.Confirm.doConfirm str

Confirm.js

// In Native/Confirm
var _roine$my_plugin$Native_Confirm = function() {

  function doConfirm(str) {
    return _elm_lang$core$Native_Scheduler.nativeBinding(function(callback) {
      if (window.confirm(str)) {
        callback(_elm_lang$core$Native_Scheduler.succeed());
      }
    });
  }

  return {
    doConfirm: doConfirm
  };

}();

Main.elm

...
update msg model  =
  case msg of
    CloseReport ->
      model ! [ Task.perform (always NoOp) (always DoCloseReport) (confirm "are you sure?") ]

    DoCloseReport ->
       model ! [ closeReport ]
...