diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-30 13:09:26 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-30 13:09:26 -0400 |
commit | 89d4e18cdb6ed1c3e7916dd66cf907bedf58a549 (patch) | |
tree | 2d7d5964fa08c311c88448548994ebc96e8f030b /Role/Downloader.hs | |
parent | ff1ead88d0ed4494dbe668cf18b02f8cea482d69 (diff) | |
download | debug-me-89d4e18cdb6ed1c3e7916dd66cf907bedf58a549.tar.gz |
dump developer state on protocol error
Diffstat (limited to 'Role/Downloader.hs')
-rw-r--r-- | Role/Downloader.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |