From 89d4e18cdb6ed1c3e7916dd66cf907bedf58a549 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Apr 2017 13:09:26 -0400 Subject: dump developer state on protocol error --- Role/Downloader.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Role/Downloader.hs') diff --git a/Role/Downloader.hs b/Role/Downloader.hs index c3d6b73..094e7de 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -32,5 +32,5 @@ downloader dsv _ichan ochan sid = do Just (o, msg) -> do _ <- logger msg case o of - ProtocolError e -> error ("Protocol error: " ++ e) + ProtocolError {} -> emitOutput o _ -> go logger st -- cgit v1.2.3