@@ -606,16 +606,16 @@ casesUrlMap = [pair1, pair2, pair3, pair4]
606606 pair1 = makePair "should mount root" $ do
607607 res1 <- get "/"
608608 assertStatus 200 res1
609− assertHeader "X-rawPathInfo" "/" res1
609+ assertHeader "X-rawPathInfo" "/" res1
610610 assertHeader "X-pathInfo" (s []) res1
611− assertHeader "X-appName" "main" res1
611+ assertHeader "X-appName" "main" res1
612612
613613 pair2 = makePair "should mount apps" $ do
614614 res2 <- get "/bugs"
615615 assertStatus 200 res2
616− assertHeader "X-rawPathInfo" "/" res2
616+ assertHeader "X-rawPathInfo" "/" res2
617617 assertHeader "X-pathInfo" (s []) res2
618− assertHeader "X-appName" "bugs" res2
618+ assertHeader "X-appName" "bugs" res2
619619
620620 pair3 = makePair "should preserve extra path info" $ do
621621 res3 <- get "/helpdesk/issues/11"