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

Remove some dead code

Browse Source
This commit is contained in:
Michael Snoyman 2015-03-16 13:36:31 +02:00
parent 6cf5be6ff1
commit 3c4e132774
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/StackageHome.hs
View File

@ -1,6 +1,5 @@
module Handler.StackageHome where module Handler.StackageHome where
import Data.BlobStore (storeExists)
import Import import Import
import Data.Time (FormatTime) import Data.Time (FormatTime)
import Data.Slug (SnapSlug) import Data.Slug (SnapSlug)
@ -13,7 +12,6 @@ getStackageHomeR slug = do
Entity _ stackage <- getBy404 $ UniqueSnapshot slug Entity _ stackage <- getBy404 $ UniqueSnapshot slug
return stackage return stackage
hasBundle <- storeExists $ SnapshotBundle $ stackageIdent stackage
let minclusive = let minclusive =
if "inclusive" `isSuffixOf` stackageTitle stackage if "inclusive" `isSuffixOf` stackageTitle stackage
then Just True then Just True