Avoid mempty
commitdb086acf93738125da58eef87c7ee483ec0ecf02
authorpatrick brisbin <pbrisbin@gmail.com>
dateWed 8 Apr 2015, 13:45 (12 years ago)
parent1aaa871
wai-extra/Network/Wai/Middleware/ForceSSL.hs+1−1
@@ -28,7 +28,7 @@ redirectResponse :: Request -> Maybe Response
2828redirectResponse req = do
2929 (host:_) <- C.split ':' <$> requestHeaderHost req
3030
31− return $ responseBuilder status [(hLocation, location host)] mempty
31+ return $ responseBuilder status [(hLocation, location host)] ""
3232
3333 where
3434 location h = "https://" <> h <> rawPathInfo req <> rawQueryString req