diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-18 16:35:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-18 16:35:38 -0400 |
| commit | d73352f848b79224a94e531bb651897321064998 (patch) | |
| tree | 4e4bb7f13113bfffc950a0451dd89b6ca8160070 /debug-me.hs | |
| parent | a70548f6dade6d93d482510a1b68b99327ec7f4a (diff) | |
| download | debug-me-d73352f848b79224a94e531bb651897321064998.tar.gz | |
initial Crypto
Will use Ed25519 because it's from DJB and well regarded and in common
use now.
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 |