improve display of failed transfer alert
This commit is contained in:
parent
2433f6ca5a
commit
11c1f32c51
2 changed files with 8 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue