Remove unneeded liftIO

scotty-web · May 26, 2015 · a840ebd · a840ebd
1 parent f1889f4
commit a840ebd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/examples/urlshortener.hs b/examples/urlshortener.hs
@@ -28,7 +28,7 @@ import Text.Blaze.Html.Renderer.Text (renderHtml)
 
 main :: IO ()
 main = do
-  m <- liftIO $ newMVar (0::Int,M.empty :: M.Map Int T.Text)
+  m <- newMVar (0::Int,M.empty :: M.Map Int T.Text)
   scotty 3000 $ do
     middleware logStdoutDev
     middleware static