X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMisc.hs;h=56d33eb43c3969ce0c9c40b5efb81582d0b888b1;hb=9ecdab2b3a4bc6bdf50776a5d2092632988fa8fa;hp=83b439c4e503529b4dbe482a532e5c87d196f200;hpb=9d43550513b9602d211430283505fe810556e0c1;p=spline3.git

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)