Remove incomplete pattern

2026-01-12 04:08:29 +01:00 · 2014-12-15 14:44:12 +01:00 · 2014-12-15 14:44:12 +01:00 · 6ac46c12b7
commit 6ac46c12b7
parent 673a176b93
1 changed files with 6 additions and 4 deletions
--- a/Foundation.hs
+++ b/Foundation.hs
@ -155,10 +155,12 @@ instance Yesod App where
    maximumContentLength _ _ = Just 2000000

 instance ToMarkup (Route App) where
-    toMarkup c = case c of
-                   AllSnapshotsR{} -> "Snapshots"
-                   UploadStackageR{} -> "Upload"
-                   AuthR (LoginR{}) -> "Login"
+    toMarkup c =
+        case c of
+          AllSnapshotsR{} -> "Snapshots"
+          UploadStackageR{} -> "Upload"
+          AuthR (LoginR{}) -> "Login"
+          _ -> ""

 -- How to run database actions.
 instance YesodPersist App where