From 9ecdab2b3a4bc6bdf50776a5d2092632988fa8fa Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 4 Mar 2019 22:54:37 -0500 Subject: [PATCH] src/Misc.hs: add a type signature to eliminate polymorphism. --- src/Misc.hs | 1 + 1 file changed, 1 insertion(+) 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) -- 2.44.2