@@ -58,6 +58,16 @@ alertEvent str e = do
5858 Just window <- currentWindow
5959 performEvent_ (DOM.alert window . str <$> e)
6060
61+------------------------------------------------------------------------------
62+-- | Convenient function that pops up multiple javascript alert dialog box
63+-- sequentially when an event fires with messages to display.
64+alertEvents
65+ :: (PerformEvent t m, MonadJSM m, MonadJSM (Performable m))
66+ => (a -> [String]) -> Event t a -> m ()
67+alertEvents str e = do
68+ Just window <- currentWindow
69+ performEvent_ (mapM_ (DOM.alert window) <$> str <$> e)
70+
6171------------------------------------------------------------------------------
6272-- | Convenient function that pops up a javascript confirmation dialog box
6373-- when an event fires with a message to display.