From a555c07f5692995bdda0ac03cec1cb0cd5a68225 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 6 Jul 2016 15:37:38 -0400
Subject: [PATCH] Fix a monomorphism restriction warning (GHC 8).

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
 
-- 
2.43.2