haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-06 08:07:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove incomplete pattern

Browse Source
This commit is contained in:
Chris Done 2014-12-15 14:44:12 +01:00
parent 673a176b93
commit 6ac46c12b7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Foundation.hs
View File

@ -155,10 +155,12 @@ instance Yesod App where
maximumContentLength _ _ = Just 2000000 maximumContentLength _ _ = Just 2000000
instance ToMarkup (Route App) where instance ToMarkup (Route App) where
toMarkup c = case c of toMarkup c =
AllSnapshotsR{} -> "Snapshots" case c of
UploadStackageR{} -> "Upload" AllSnapshotsR{} -> "Snapshots"
AuthR (LoginR{}) -> "Login" UploadStackageR{} -> "Upload"
AuthR (LoginR{}) -> "Login"
_ -> ""
-- How to run database actions. -- How to run database actions.
instance YesodPersist App where instance YesodPersist App where