diff options
| -rw-r--r-- | src/Plugin/Factorial.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugin/Factorial.hs b/src/Plugin/Factorial.hs index f8cfee2..692d20f 100644 --- a/src/Plugin/Factorial.hs +++ b/src/Plugin/Factorial.hs @@ -25,5 +25,5 @@ factorialAction message = do let number = last m return $ Right $ showt $ calculate $ (read number :: Int) -calculate :: (Enum a, Num a) => a -> a +calculate :: (Integral a) => a -> a calculate n = product [1..n] |