From: Michael Orlitzky Date: Tue, 5 Mar 2019 03:54:37 +0000 (-0500) Subject: src/Misc.hs: add a type signature to eliminate polymorphism. X-Git-Tag: 1.0.1~22 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=9ecdab2b3a4bc6bdf50776a5d2092632988fa8fa;p=spline3.git src/Misc.hs: add a type signature to eliminate polymorphism. --- diff --git a/src/Misc.hs b/src/Misc.hs index 83b439c..56d33eb 100644 --- a/src/Misc.hs +++ b/src/Misc.hs @@ -35,6 +35,7 @@ factorial :: Int -> Int factorial !n = go 1 n where + go :: Int -> Int -> Int go !acc !i | i <= 1 = acc | otherwise = go (acc * i) (i - 1)