diff options
Diffstat (limited to 'Assistant/Alert.hs')
-rw-r--r-- | Assistant/Alert.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index c66621836..4c4906ef5 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -260,10 +260,13 @@ addFileAlert :: FilePath -> Alert addFileAlert = fileAlert (Tensed "Adding" "Added") {- This is only used as a success alert after a transfer, not during it. -} -transferFileAlert :: Direction -> FilePath -> Alert -transferFileAlert direction +transferFileAlert :: Direction -> Bool -> FilePath -> Alert +transferFileAlert direction True | direction == Upload = fileAlert "Uploaded" | otherwise = fileAlert "Downloaded" +transferFileAlert direction False + | direction == Upload = fileAlert "Upload failed" + | otherwise = fileAlert "Download failed" dataCombiner :: ([TenseChunk] -> [TenseChunk] -> [TenseChunk]) -> AlertCombiner dataCombiner combiner new old |