diff options
Diffstat (limited to 'Command/TransferInfo.hs')
| -rw-r--r-- | Command/TransferInfo.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Command/TransferInfo.hs b/Command/TransferInfo.hs index 21b7830c3..1db633484 100644 --- a/Command/TransferInfo.hs +++ b/Command/TransferInfo.hs @@ -13,6 +13,7 @@ import Types.Transfer import Logs.Transfer import qualified CmdLine.GitAnnexShell.Fields as Fields import Utility.Metered +import Utility.SimpleProtocol cmd :: Command cmd = noCommit $ @@ -59,7 +60,7 @@ start (k:[]) = do , exitSuccess ] stop -start _ = error "wrong number of parameters" +start _ = giveup "wrong number of parameters" readUpdate :: IO (Maybe Integer) -readUpdate = readish <$> getLine +readUpdate = maybe Nothing readish <$> getProtocolLine stdin |