663fbaa · servant · git.iko.soy

94

95 with (return (serve

96 (Proxy :: Proxy (Capture "captured" String :> Raw))

97− (\ "captured" request respond ->

97+ (\ "captured" request_ respond ->

98− respond $ responseLBS ok200 [] (cs $ show $ pathInfo request)))) $ do

98+ respond $ responseLBS ok200 [] (cs $ show $ pathInfo request_)))) $ do

99 it "strips the captured path snippet from pathInfo" $ do

100 get "/captured/foo" `shouldRespondWith` (fromString (show ["foo" :: String]))

101

134 qpCapitalize False = return alice

135 qpCapitalize True = return alice { name = map toUpper (name alice) }

136

137− queryParamServer (Just name) = return alice{name = name}

137+ queryParamServer (Just name_) = return alice{name = name_}

138 queryParamServer Nothing = return alice

139

140queryParamSpec :: Spec

222rawApi :: Proxy RawApi

223rawApi = Proxy

224rawApplication :: Show a => (Request -> a) -> Application

225−rawApplication f request respond = respond $ responseLBS ok200 [] (cs $ show $ f request)

225+rawApplication f request_ respond = respond $ responseLBS ok200 [] (cs $ show $ f request_)

226

227rawSpec :: Spec

228rawSpec = do

264 liftIO $ do

265 decode' (simpleBody response) `shouldBe`

266 Just alice

267− response <- get "/bar"

267+ response_ <- get "/bar"

268 liftIO $ do

269− decode' (simpleBody response) `shouldBe`

269+ decode' (simpleBody response_) `shouldBe`

270 Just jerry