diff options
| -rw-r--r-- | Logs/Transfer.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs index dbd45f199..6bdc750f4 100644 --- a/Logs/Transfer.hs +++ b/Logs/Transfer.hs @@ -165,10 +165,8 @@ readTransferInfo pid s = <*> pure (Just pid) <*> pure Nothing <*> pure Nothing - <*> pure filename + <*> pure (if null filename then Nothing else Just filename) _ -> Nothing where (bits, filebits) = splitAt 1 $ lines s - filename - | null filebits = Nothing - | otherwise = Just $ join "\n" filebits + filename = join "\n" filebits |