Create page if no match is found when using _go

This was a usability issue pointed out by a non-technical user. There seemed to be no obvious way to create new pages. This was the suggested solution and the easiest to implement.
jgm · Jan 1, 2014 · 1328545 · 1328545
1 parent 9082dc1
commit 1328545
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/Network/Gitit/Handlers.hs b/Network/Gitit/Handlers.hs
@@ -242,19 +242,15 @@ goToPage = withData $ \(params :: Params) -> do
   let findPage f = find f allPageNames
   let exactMatch f = gotopage == f
   let insensitiveMatch f = (map toLower gotopage) == (map toLower f)
-  let prefixMatch f = (map toLower gotopage) `isPrefixOf` (map toLower f)
   base' <- getWikiBase
   case findPage exactMatch of
        Just m  -> seeOther (base' ++ urlForPage m) $ toResponse
                      "Redirecting to exact match"
        Nothing -> case findPage insensitiveMatch of
                        Just m  -> seeOther (base' ++ urlForPage m) $ toResponse
                                     "Redirecting to case-insensitive match"
-                       Nothing -> case findPage prefixMatch of
+                       Nothing -> seeOther (base' ++ urlForPage gotopage) $ toResponse
-                                       Just m  -> seeOther (base' ++ urlForPage m) $
+                                    "Redirecting to new page"
-                                                  toResponse $ "Redirecting" ++
-                                                    " to partial match"
-                                       Nothing -> searchResults
 
 searchResults :: Handler
 searchResults = withData $ \(params :: Params) -> do