spec :: Spec
spec = around withServer $ describe "GameServer Server" $ do

    it "serves index.html page" $ \ Server{serverPort} -> do
      response <- httpBS (fromString $ "http://localhost:" <> show serverPort <> "/index.html")

      getResponseStatus response `shouldBe` ok200
spec :: Spec
spec = around withServer $ describe "GameServer Server" $ do

    it "serves index.html page" $ \ Server{serverPort} -> do
      response <- httpBS (fromString $ "http://localhost:" <> show serverPort <> "/index.html")

      getResponseStatus response `shouldBe` ok200
spec = around withServer $ describe "GameServer Server" $ do

    it "serves index.html page" $ \ Server{serverPort} -> do
      response <- httpBS (fromString $ "http://localhost:" <> show serverPort <> "/index.html")

      getResponseStatus response `shouldBe` ok200