yogsototh/stackage-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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