Skip to content

Commit

Permalink
cleanup
Browse files Browse the repository at this point in the history
  • Loading branch information
imalsogreg committed Sep 1, 2023
1 parent aa4739d commit cb94bed
Show file tree
Hide file tree
Showing 3 changed files with 0 additions and 3 deletions.
1 change: 0 additions & 1 deletion src/Pact/Types/Command.hs
Original file line number Diff line number Diff line change
Expand Up @@ -52,7 +52,6 @@ module Pact.Types.Command
, RequestKey(..)
, cmdToRequestKey
, requestKeyToB16Text
-- , verifyWebAuthnSig
) where

import Control.Applicative
Expand Down
1 change: 0 additions & 1 deletion src/Pact/Types/Crypto.hs
Original file line number Diff line number Diff line change
Expand Up @@ -149,7 +149,6 @@ instance Scheme (SPPKScheme 'ED25519) where
type PrivateKey (SPPKScheme 'ED25519) = Ed25519.PrivateKey
type Signature (SPPKScheme 'ED25519) = Ed25519.Signature

-- TODO: Check this with the right compiler flags.
_valid _ (Hash msg) pub sig =
case (fromBS pubBS, fromBS sigBS) of
(Right pubKey, Right sig) -> Ed25519.verify pubKey (fromShort msg) sig
Expand Down
1 change: 0 additions & 1 deletion tests/SchemeSpec.hs
Original file line number Diff line number Diff line change
Expand Up @@ -154,7 +154,6 @@ testPublicKeyImport = do



-- TODO doublecheck the logic.
it "fails UserSig validation when UserSig has unexpected Scheme" $ do
let hsh = hash "(somePactFunction)"
[signer] <- toSigners [someED25519Pair]
Expand Down

0 comments on commit cb94bed

Please sign in to comment.