haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-30 21:00:24 +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 Text.Blaze.Html5.Attributes as A
import qualified Documentation.Haddock.Parser as Haddock import qualified Documentation.Haddock.Parser as Haddock
import Documentation.Haddock.Types (DocH (..), Hyperlink (..), Picture (..), Header (..), Example (..)) 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 :: Monad m => Consumer (Entity Uploaded) m UploadHistory
sinkUploadHistory = sinkUploadHistory =
@ -148,7 +149,7 @@ data UploadState md = UploadState
{ usHistory :: !UploadHistory { usHistory :: !UploadHistory
, usChanges :: ![Uploaded] , usChanges :: ![Uploaded]
, usMetadata :: !(HashMap PackageName MetaSig) , usMetadata :: !(HashMap PackageName MetaSig)
, usMetaChanges :: !(HashMap PackageName md) , usMetaChanges :: (HashMap PackageName md)
} }
data MetaSig = MetaSig data MetaSig = MetaSig
@ -226,7 +227,7 @@ setMetadata forceUpdate name version dataVersion hash' gpdRes = do
!md <- getMetadata name version hash' gpd !md <- getMetadata name version hash' gpd
put $! UploadState us1 us2 put $! UploadState us1 us2
(insertMap name (MetaSig version dataVersion hash') mdMap) (insertMap name (MetaSig version dataVersion hash') mdMap)
(insertMap name md mdChanges) (HM.insert name md mdChanges)
_ -> return () _ -> return ()
else return () else return ()