From f8231ade9124faa3e7b517d2a7e76085ac84b562 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 14:29:58 -0400 Subject: Warn when --uploadqueued fails to upload to servers. --- Storage/Network.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Storage/Network.hs') diff --git a/Storage/Network.hs b/Storage/Network.hs index 9b586b3..ff33e3f 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -47,5 +47,5 @@ count :: Server -> IO CountResult count srv = serverRequest srv CountFailure id NoPOWIdent countObjects -- | Not needed for servers. -move :: Server -> Storage -> IO () +move :: Server -> Storage -> IO [StoreResult] move _ _ = error "move is not implemented for servers" -- cgit v1.2.3