Fix a monomorphism restriction warning (GHC 8).
authorMichael Orlitzky <michael@orlitzky.com>
Wed, 6 Jul 2016 19:37:38 +0000 (15:37 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Wed, 6 Jul 2016 19:37:38 +0000 (15:37 -0400)
src/Main.hs

index 3e8d8c09c92021dcd05210a336e46703eb9a552f..f513ec67ff62149c5ec1409940cedbdab1bae7e2 100644 (file)
@@ -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