@@ -606,16 +606,16 @@ casesUrlMap = [pair1, pair2, pair3, pair4]
606 pair1 = makePair "should mount root" $ do
606 pair1 = makePair "should mount root" $ do
607 res1 <- get "/"
607 res1 <- get "/"
608 assertStatus 200 res1
608 assertStatus 200 res1
609− assertHeader "X-rawPathInfo" "/" res1
609+ assertHeader "X-rawPathInfo" "/" res1
610 assertHeader "X-pathInfo" (s []) res1
610 assertHeader "X-pathInfo" (s []) res1
611− assertHeader "X-appName" "main" res1
611+ assertHeader "X-appName" "main" res1
613 pair2 = makePair "should mount apps" $ do
613 pair2 = makePair "should mount apps" $ do
614 res2 <- get "/bugs"
614 res2 <- get "/bugs"
615 assertStatus 200 res2
615 assertStatus 200 res2
616− assertHeader "X-rawPathInfo" "/" res2
616+ assertHeader "X-rawPathInfo" "/" res2
617 assertHeader "X-pathInfo" (s []) res2
617 assertHeader "X-pathInfo" (s []) res2
618− assertHeader "X-appName" "bugs" res2
618+ assertHeader "X-appName" "bugs" res2
620 pair3 = makePair "should preserve extra path info" $ do
620 pair3 = makePair "should preserve extra path info" $ do
621 res3 <- get "/helpdesk/issues/11"
621 res3 <- get "/helpdesk/issues/11"