From 685eaec533dc3c12303b603b93b9681719772a42 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 5 Dec 2014 09:25:29 +0200
Subject: [PATCH] Add a bit of laziness

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

diff --git a/Data/Hackage.hs b/Data/Hackage.hs
index 8d9b56b..afc059b 100644
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@@ -42,6 +42,7 @@ import qualified Text.Blaze.Html5 as H
 import qualified Text.Blaze.Html5.Attributes as A
 import qualified Documentation.Haddock.Parser as Haddock
 import Documentation.Haddock.Types (DocH (..), Hyperlink (..), Picture (..), Header (..), Example (..))
+import qualified Data.HashMap.Lazy as HM
 
 sinkUploadHistory :: Monad m => Consumer (Entity Uploaded) m UploadHistory
 sinkUploadHistory =
@@ -148,7 +149,7 @@ data UploadState md = UploadState
     { usHistory :: !UploadHistory
     , usChanges :: ![Uploaded]
     , usMetadata :: !(HashMap PackageName MetaSig)
-    , usMetaChanges :: !(HashMap PackageName md)
+    , usMetaChanges :: (HashMap PackageName md)
     }
 
 data MetaSig = MetaSig
@@ -226,7 +227,7 @@ setMetadata forceUpdate name version dataVersion hash' gpdRes = do
                     !md <- getMetadata name version hash' gpd
                     put $! UploadState us1 us2
                                 (insertMap name (MetaSig version dataVersion hash') mdMap)
-                                (insertMap name md mdChanges)
+                                (HM.insert name md mdChanges)
                 _ -> return ()
         else return ()