From ff6a3c6877be2b2f234cd9b059b8a54f3beed529 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 14 May 2015 16:48:21 +0300
Subject: [PATCH] Clean up warnings in Handler.StackageHome

---
 Handler/StackageHome.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Handler/StackageHome.hs b/Handler/StackageHome.hs
index 995d926..fc8f75e 100644
--- a/Handler/StackageHome.hs
+++ b/Handler/StackageHome.hs
@@ -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)