Commits

Luke Plant committed 87f1bae

Small cleanup

Comments (0)

Files changed (1)

src/Blog/Processors.hs

 
 canonicalUri :: Request -> IO (Maybe Response)
 canonicalUri req =
-    let uri' = requestUriRaw req
-    in return $ case uri' of
-                  Nothing -> Nothing
-                  Just uri -> if Settings.prog_uri `isPrefixOf` uri
-                     then let canonUri = Settings.root_url ++ drop (length Settings.prog_uri + length "/") uri
-                          in Just $ redirectResponse canonUri
-                     else Nothing
+    return $ case requestUriRaw req of
+               Nothing -> Nothing
+               Just uri | Settings.prog_uri `isPrefixOf` uri
+                       -> let canonUri = Settings.root_url ++ drop (length Settings.prog_uri + length "/") uri
+                               in Just $ redirectResponse canonUri
+               _       -> Nothing