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