From 3c4e132774d1b70af891ce6a7ed49dc0a3fe6a41 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 16 Mar 2015 13:36:31 +0200
Subject: [PATCH] Remove some dead code

---
 Handler/StackageHome.hs | 2 --
 1 file changed, 2 deletions(-)

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