RunDialog.hs

--------------------------------------------------------------------------------
-- |
-- module:    Dialog.RunDialog
-- copyright: (c) 2015 Nikita Churaev
-- license:   BSD3
--------------------------------------------------------------------------------

{-# OPTIONS_HADDOCK not-home #-}

--------------------------------------------------------------------------------

module Dialog.RunDialog (dialog) where

--------------------------------------------------------------------------------

import Control.Monad.IO.Class (MonadIO (..))
import Dialog.Internal (DialogIO)
import Dialog.RunWebkitGtk3 (runDialogUsingWebkitGtk3)

--------------------------------------------------------------------------------

-- | Opens a dialog window and runs the given dialog in it.
dialog :: MonadIO m => DialogIO () -> m ()
dialog dialog = runDialogUsingWebkitGtk3 dialog

--------------------------------------------------------------------------------