+examineScheme ∷ Bool → State AugmentedRequest ()
+examineScheme isSSL
+ = do req ← gets arRequest
+ when (null ∘ uriScheme $ reqURI req) $
+ let uri' = (reqURI req) {
+ uriScheme = if isSSL then
+ "https:"
+ else
+ "http:"
+ }
+ req' = req { reqURI = uri' }
+ in
+ setRequest req'
+