From 60dcfba8de9d396d490f8f80978c115526293b54 Mon Sep 17 00:00:00 2001
From: Jens Petersen <petersen@redhat.com>
Date: Wed, 17 Feb 2016 19:29:41 +0900
Subject: [PATCH] Handler.Package: fix the empty warning correctly (thanks
 zudov)

---
 Handler/Package.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Handler/Package.hs b/Handler/Package.hs
index ea8dd00..098f0ea 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -16,7 +16,7 @@ import qualified Data.Text.Lazy as LT
 import           Distribution.Package.ModuleForest
 import           Graphics.Badge.Barrier
 import           Control.Lens
-import           Import hiding (empty)
+import           Import
 import qualified Text.Blaze.Html.Renderer.Text as LT
 import           Text.Email.Validate
 import           Stackage.Database
@@ -161,13 +161,13 @@ data Identifier
 --
 parseIdentitiesLiberally :: Text -> [Identifier]
 parseIdentitiesLiberally =
-  filter (not . empty) .
+  filter (not . emptyPlainText) .
   map strip .
   concatPlains .
   map parseChunk .
   T.split (== ',')
-  where empty (PlainText e) = T.null e
-        empty _ = False
+  where emptyPlainText (PlainText e) = T.null e
+        emptyPlainText _ = False
         strip (PlainText t) = PlainText (T.strip t)
         strip x = x
         concatPlains = go