From 6ac46c12b761c74422010d0072ccdbb61bf6eaf1 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Mon, 15 Dec 2014 14:44:12 +0100
Subject: [PATCH] Remove incomplete pattern

---
 Foundation.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/Foundation.hs b/Foundation.hs
index d980450..d9b574c 100644
--- 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