Fix a monomorphism restriction warning (GHC 8).

[haeredes.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index 3e8d8c09c92021dcd05210a336e46703eb9a552f..f513ec67ff62149c5ec1409940cedbdab1bae7e2 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -113,7 +113,7 @@ main = do
 
   -- Set the timeout from the command line. The resolvTimeout field is
   -- in microseconds, so we multiply by one million.
-  let a_million = 1000 * 1000
+  let a_million = 1000 * 1000 :: Int
   let rc = rc' { resolvTimeout = a_million * seconds (timeout cfg) }
   rs <- makeResolvSeed rc