From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 6 Jul 2016 19:37:38 +0000 (-0400)
Subject: Fix a monomorphism restriction warning (GHC 8).
X-Git-Tag: 0.4.5~1
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=a555c07f5692995bdda0ac03cec1cb0cd5a68225;p=haeredes.git

Fix a monomorphism restriction warning (GHC 8).
---

diff --git a/src/Main.hs b/src/Main.hs
index 3e8d8c0..f513ec6 100644
--- 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