patch applied (hackage-server): "Deal with restoring blobs generically" and 5 others

[devnull at community.haskell.org]

Fri Nov 30 11:00:21 GMT 2012  Edsko de Vries <edsko at well-typed.com>
  * Deal with restoring blobs generically
  Ignore-this: 28e695ea22637a21c1cf1af019df53e

    M ./Distribution/Server.hs -1 +2
    M ./Distribution/Server/Features/BuildReports/Backup.hs -6 +9
    M ./Distribution/Server/Features/Core/Backup.hs -17 +27
    M ./Distribution/Server/Features/Distro/Backup.hs -4 +4
    M ./Distribution/Server/Features/Documentation.hs -7 +6
    M ./Distribution/Server/Features/DownloadCount/Backup.hs -2 +2
    M ./Distribution/Server/Features/Tags/Backup.hs -1 +1
    M ./Distribution/Server/Features/Upload/Backup.hs -2 +2
    M ./Distribution/Server/Framework/BackupDump.hs -10 +27
    M ./Distribution/Server/Framework/BackupRestore.hs -41 +105
    M ./Distribution/Server/Users/Backup.hs -2 +2
    M ./Main.hs -2 +4

Fri Nov 30 11:24:28 GMT 2012  Edsko de Vries <edsko at well-typed.com>
  * Use pure restore for download counts
  Ignore-this: 72ea2c139f2222f8d9bea49d52991630

    M ./Distribution/Server/Features/DownloadCount/Backup.hs -19 +19

Fri Nov 30 16:02:21 GMT 2012  Edsko de Vries <edsko at well-typed.com>
  * Convert Core to use pure restore
  Ignore-this: a8596305889a168ac5304aa45a99772d
  
  In order to do this, define a Restore monad as follows:
  
    data Restore :: * -> * where
      RestoreDone :: forall a. a -> Restore a
      RestoreBind :: Restore a -> (a -> Restore b) -> Restore b
      RestoreFail :: forall a. String -> Restore a
      RestoreAddBlob :: ByteString -> Restore BlobId
      RestoreGetBlob :: BlobId -> Restore ByteString
  
  We could execute this in QuickCheck against a "fake" blob store (list of pairs
  of blob IDs and bytestrings) if we wish.

    M ./Distribution/Server/Features/Core/Backup.hs -92 +87
    M ./Distribution/Server/Features/DownloadCount.hs -6 +6
    M ./Distribution/Server/Features/DownloadCount/Backup.hs -5 +6
    M ./Distribution/Server/Features/Tags.hs -6 +6
    M ./Distribution/Server/Features/Tags/Backup.hs -7 +8
    M ./Distribution/Server/Framework/BackupRestore.hs -15 +56

Fri Nov 30 16:25:14 GMT 2012  Edsko de Vries <edsko at well-typed.com>
  * Pure import for package maintainers
  Ignore-this: 9addb4e824c8e8754f5145ba167a44c0

    M ./Distribution/Server/Features/Upload.hs -6 +6
    M ./Distribution/Server/Features/Upload/Backup.hs -22 +25

Fri Nov 30 16:48:02 GMT 2012  Edsko de Vries <edsko at well-typed.com>
  * Update Documentation to use pure restore
  Ignore-this: 6f709e6e99abc08e14d36ccab1524d34

    M ./Distribution/Server/Features/Documentation.hs -19 +25
    M ./Distribution/Server/Util/ServeTarball.hs -5 +12

Fri Nov 30 17:35:51 GMT 2012  Edsko de Vries <edsko at well-typed.com>
  * Use pure import for Distro
  Ignore-this: d142a8b576a751c8351c27f9508b54bf

    M ./Distribution/Server/Features/Distro.hs -6 +6
    M ./Distribution/Server/Features/Distro/Backup.hs -62 +49