Luke Plant avatar 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
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.