pair request alert tweaks

This commit is contained in:
Joey Hess 2012-09-09 15:16:17 -04:00
parent 690b424cad
commit ded8517545
2 changed files with 7 additions and 7 deletions

View file

@ -288,10 +288,10 @@ sanityCheckFixAlert msg = Alert
pairRequestAlert :: String -> String -> AlertButton -> Alert
pairRequestAlert repo msg button = Alert
{ alertClass = Message
, alertHeader = Just $ tenseWords ["Pair request"]
, alertHeader = Nothing
, alertMessageRender = tenseWords
, alertData = [UnTensed $ T.pack msg]
, alertBlockDisplay = True
, alertBlockDisplay = False
, alertPriority = High
, alertClosable = True
, alertIcon = Just InfoIcon