51 renderData = tenseWords . alertData
58 	, alertData = []  function
74 	, alertData = [UnTensed $ T.pack msg]  function
90 	, alertData = [UnTensed $ T.pack msg]  function
104 	, alertData = dat  function
165 	, alertData = [UnTensed $ T.pack msg]  function
176 	render alert = tenseWords $ alerthead : alertData alert ++ [alertfoot]
182 	{ alertData = case mr of  function
225 	, alertData = []  function
241 	, alertData = []  function
248 		, alertData = [fromString $ " (version " ++ version ++ ")"]  function
287 	, alertData = []  function
301 	{ alertData = [ UnTensed "Pairing in progress" ]  function
311 	, alertData = [UnTensed $ T.pack $ who ++ " is sending a pair request."]  function
324 	{ alertData = ["Pairing with", UnTensed (T.pack who), Tensed "in progress" "complete"]  function
344 	, alertData = []  function
363 	, alertData = []  function
381 	, alertData = []  function
400 	renderer alert = tenseWords $ msg : alertData alert ++ showcounter
422 			dedupadjacent $ alertData new ++ alertData old
425 			{ alertData = fs  function
443 	\new old -> old { alertData = alertData new `combiner` alertData old }