diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
| commit | df337bb63b4ed6e5d2ce563ec89d28d192e791db (patch) | |
| tree | 638813a415727b8a5441ba450e20e6dc2632c970 /Assistant/Alert.hs | |
| parent | a3913f52e52777b18bd8e50ff593a4f4085e8b93 (diff) | |
hlint
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 118c5e43d..f11ad8f58 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -{-# LANGUAGE RankNTypes, BangPatterns, OverloadedStrings #-} +{-# LANGUAGE RankNTypes, OverloadedStrings #-} module Assistant.Alert where @@ -227,24 +227,24 @@ activityAlert header dat = baseActivityAlert } startupScanAlert :: Alert -startupScanAlert = activityAlert Nothing $ +startupScanAlert = activityAlert Nothing [Tensed "Performing" "Performed", "startup scan"] commitAlert :: Alert -commitAlert = activityAlert Nothing $ +commitAlert = activityAlert Nothing [Tensed "Committing" "Committed", "changes to git"] showRemotes :: [Remote] -> TenseChunk showRemotes = UnTensed . T.unwords . map (T.pack . Remote.name) pushAlert :: [Remote] -> Alert -pushAlert rs = activityAlert Nothing $ +pushAlert rs = activityAlert Nothing [Tensed "Syncing" "Synced", "with", showRemotes rs] pushRetryAlert :: [Remote] -> Alert pushRetryAlert rs = activityAlert (Just $ tenseWords [Tensed "Retrying" "Retried", "sync"]) - (["with", showRemotes rs]) + ["with", showRemotes rs] syncAlert :: [Remote] -> Alert syncAlert rs = baseActivityAlert @@ -308,7 +308,7 @@ pairRequestReceivedAlert repo button = Alert , alertButton = Just button } -pairRequestAcknowledgedAlert :: String -> (Maybe AlertButton) -> Alert +pairRequestAcknowledgedAlert :: String -> Maybe AlertButton -> Alert pairRequestAcknowledgedAlert repo button = baseActivityAlert { alertData = ["Pair request with", UnTensed (T.pack repo), Tensed "in progress" "complete"] , alertPriority = High |