From 38850dfe6839ed9efc94ad8fa9c91f2ed7009587 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 17 Nov 2014 14:38:27 +0200
Subject: [PATCH] Fix a stupid error

Yup, I'm an idiot.
---
 Data/Hackage.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Hackage.hs b/Data/Hackage.hs
index f737142..e319a88 100644
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@@ -124,7 +124,7 @@ loadCabalFiles uploadHistory0 metadata0 = (>>= runUploadState) $ flip execStateT
 
 readVersion :: Version -> Maybe (UVector Int)
 readVersion v =
-    case filter (not . null . snd) $ readP_to_S Data.Version.parseVersion . unpack . unVersion $ v of
+    case filter (null . snd) $ readP_to_S Data.Version.parseVersion . unpack . unVersion $ v of
         (dv, _):_ -> Just $ pack $ Data.Version.versionBranch dv
         [] -> Nothing