Fix warning

ajnsit · Apr 17, 2017 · 54060d5 · 54060d5
1 parent 438678e
commit 54060d5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/unrouted/src/Main.hs b/examples/unrouted/src/Main.hs
@@ -22,7 +22,7 @@ import Network.Wai.Handler.Warp
 main :: IO ()
 main = do
   -- Global state
-  times <- liftIO $ newIORef 0
+  times <- liftIO $ newIORef (0::Int)
 
   -- We create a global vault key to store the counter
   -- This key is only created once when the application starts