mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add DEBUG

Browse source
This commit is contained in:
Joey Hess 2014-01-07 13:23:58 -04:00
parent d8e8128b50
commit 5e23dfabd6
4 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Remote/External.hs
View file

@ -242,6 +242,7 @@ handleRequest' lck external req mp responsehandler
state <- fromMaybe ""
<$> getRemoteState (externalUUID external) key
send $ VALUE state
handleRemoteRequest (DEBUG msg) = liftIO $ debugM "external" msg
handleRemoteRequest (VERSION _) =
sendMessage lck external $ ERROR "too late to send VERSION"