Commits

dafis committed 114b585

forgot to change order in the call

  • Participants
  • Parent commits b344902

Comments (0)

Files changed (1)

Math/NumberTheory/Moduli.hs

 -- | Specialised worker without input checks. Makes the same assumptions
 --   as the general version 'powerMod''.
 powerModInteger' :: Integer -> Integer -> Integer -> Integer
-powerModInteger' base expo md = go e1 w1 1 base
+powerModInteger' base expo md = go w1 1 base e1
   where
     w1 = fromInteger expo
     e1 = expo `shiftR` 64