haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add a bit of laziness

Browse Source
This commit is contained in:
Michael Snoyman 2014-12-05 09:25:29 +02:00
parent e755ea6df5
commit 685eaec533
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Data/Hackage.hs
View File

@ -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 ()