Remove unproven shortcut from safeScalarMultiply

LeastAuthority · Jan 14, 2018 · 416e7c2 · 416e7c2
1 parent 40001c4
commit 416e7c2
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/Crypto/Spake2/Groups/Ed25519.hs b/src/Crypto/Spake2/Groups/Ed25519.hs
@@ -301,7 +301,6 @@ safeScalarMultiply n = scalarMultiplyExtendedPoint addExtendedPoints n
 scalarMultiplyExtendedPoint :: (ExtendedPoint a -> ExtendedPoint a -> ExtendedPoint a) -> Integer -> ExtendedPoint a -> ExtendedPoint a
 scalarMultiplyExtendedPoint _ 0 _ = extendedZero
 scalarMultiplyExtendedPoint add n x
- | n >= l = scalarMultiplyExtendedPoint add (n `mod` l) x
  | even n = doubleExtendedPoint (scalarMultiplyExtendedPoint add (n `div` 2) x)
  | n == 1 = x
  | n <= 0 = panic $ "Unexpected negative multiplier: " <> show n