diff options
Diffstat (limited to 'debug-me.hs')
| -rw-r--r-- | debug-me.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/debug-me.hs b/debug-me.hs index 8ff38ed..7a51613 100644 --- a/debug-me.hs +++ b/debug-me.hs @@ -11,6 +11,7 @@ import Log import Graphviz import Replay import Session +import Crypto import Control.Concurrent import Control.Concurrent.Async @@ -332,9 +333,6 @@ isLegalEntered (Activity (Proto entered) hp sig) (Backlog (lastseen :| bl)) -- Developer should never send Rejected. isLegalEntered (Activity (Rejected _) _ _) _ = False -dummySignature :: Signature -dummySignature = Signature mempty - -- | Temporary hack while user and developer share a process. protocolError :: String -> IO a protocolError e = do |