src/Misc.hs: add a type signature to eliminate polymorphism.

[spline3.git] / src / Misc.hs

diff --git a/src/Misc.hs b/src/Misc.hs
index 83b439c4e503529b4dbe482a532e5c87d196f200..56d33eb43c3969ce0c9c40b5efb81582d0b888b1 100644 (file)
--- 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)