haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-20 16:01:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Clean up warnings in Handler.StackageHome

Browse Source
This commit is contained in:
Michael Snoyman 2015-05-14 16:48:21 +03:00
parent 24875df4d2
commit ff6a3c6877
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/StackageHome.hs
View File

@ -7,7 +7,6 @@ module Handler.StackageHome
import Import import Import
import Data.Time (FormatTime) import Data.Time (FormatTime)
import qualified Database.Esqueleto as E
import Stackage.Database import Stackage.Database
getStackageHomeR :: SnapName -> Handler Html getStackageHomeR :: SnapName -> Handler Html
@ -26,7 +25,7 @@ getStackageHomeR name = do
getStackageCabalConfigR :: SnapName -> Handler TypedContent getStackageCabalConfigR :: SnapName -> Handler TypedContent
getStackageCabalConfigR name = do getStackageCabalConfigR name = do
Entity sid snapshot <- lookupSnapshot name >>= maybe notFound return Entity sid _ <- lookupSnapshot name >>= maybe notFound return
render <- getUrlRender render <- getUrlRender
mdownload <- lookupGetParam "download" mdownload <- lookupGetParam "download"
@ -110,7 +109,7 @@ getSnapshotPackagesR name = redirect $ SnapshotR name StackageHomeR
getDocsR :: SnapName -> Handler Html getDocsR :: SnapName -> Handler Html
getDocsR name = do getDocsR name = do
Entity sid snapshot <- lookupSnapshot name >>= maybe notFound return Entity sid _ <- lookupSnapshot name >>= maybe notFound return
mlis <- getSnapshotModules sid mlis <- getSnapshotModules sid
render <- getUrlRender render <- getUrlRender
let mliUrl mli = render $ haddockUrl name (mliPackageVersion mli) (mliName mli) let mliUrl mli = render $ haddockUrl name (mliPackageVersion mli) (mliName mli)