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.

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
-                                       Just m  -> seeOther (base' ++ urlForPage m) $
-                                                  toResponse $ "Redirecting" ++
-                                                    " to partial match"
-                                       Nothing -> searchResults
+                       Nothing -> seeOther (base' ++ urlForPage gotopage) $ toResponse
+                                    "Redirecting to new page"
 
 searchResults :: Handler
 searchResults = withData $ \(params :: Params) -> do