Skip to content

HSoC: Tag Features #514

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
wants to merge 18 commits into from
Closed

HSoC: Tag Features #514

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
18 commits
Select commit Hold shift + click to select a range
65c956c
Tags for review
Jun 13, 2016
87db09e
Browsable Package Index
Jun 15, 2016
6efcaa3
Smoothened rough edges in tag proposals
Jun 18, 2016
138731c
Tag Aliasing
Jun 20, 2016
5c132eb
Cleaning up earlier code
Jun 21, 2016
aa5138d
Addresses #440 and #511
Jun 23, 2016
e5a512d
Polished voting interface
Jun 23, 2016
465f158
Miscalleneous
Jul 14, 2016
7c65c71
Maintainers link
Jul 16, 2016
329ca61
Minor Fixes
Jul 19, 2016
0ac3ce2
Multiple Maintaners
Jul 22, 2016
694f7cb
Array Doubling
Jul 22, 2016
098f35b
Ajax(ed?) package page redirects
Aug 1, 2016
078dd71
HLinted
Aug 3, 2016
e2e0138
Related packages
Aug 4, 2016
879a1c7
WebGL graph of packages and dependencies
Aug 13, 2016
a7494a1
Tabular search interface
Aug 30, 2016
4cc6547
Cleaned up HTML Templates
Aug 30, 2016
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
17 changes: 9 additions & 8 deletions Distribution/Server/Features.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,7 @@ import Distribution.Server.Features.Documentation (initDocumentationFeatur
import Distribution.Server.Features.BuildReports (initBuildReportsFeature)
import Distribution.Server.Features.LegacyRedirects (legacyRedirectsFeature)
import Distribution.Server.Features.PreferredVersions (initVersionsFeature)
-- [reverse index disabled] import Distribution.Server.Features.ReverseDependencies (initReverseFeature)
import Distribution.Server.Features.ReverseDependencies (initReverseFeature)
import Distribution.Server.Features.DownloadCount (initDownloadFeature)
import Distribution.Server.Features.Tags (initTagsFeature)
import Distribution.Server.Features.Search (initSearchFeature)
Expand Down Expand Up @@ -127,8 +127,8 @@ initHackageFeatures env@ServerEnv{serverVerbosity = verbosity} = do
initTagsFeature env
mkVersionsFeature <- logStartup "versions" $
initVersionsFeature env
-- mkReverseFeature <- logStartup "reverse deps" $
-- initReverseFeature env
mkReverseFeature <- logStartup "reverse deps" $
initReverseFeature env
mkListFeature <- logStartup "list" $
initListFeature env
mkSearchFeature <- logStartup "search" $
Expand Down Expand Up @@ -247,18 +247,19 @@ initHackageFeatures env@ServerEnv{serverVerbosity = verbosity} = do
uploadFeature
tagsFeature

{- [reverse index disabled]
reverseFeature <- mkReverseFeature
coreFeature
versionsFeature
-}


listFeature <- mkListFeature
coreFeature
-- [reverse index disabled] reverseFeature
reverseFeature
downloadFeature
votesFeature
tagsFeature
versionsFeature
usersFeature

searchFeature <- mkSearchFeature
coreFeature
Expand All @@ -273,7 +274,7 @@ initHackageFeatures env@ServerEnv{serverVerbosity = verbosity} = do
uploadFeature
candidatesFeature
versionsFeature
-- [reverse index disabled] reverseFeature
reverseFeature
tagsFeature
downloadFeature
votesFeature
Expand Down Expand Up @@ -338,7 +339,7 @@ initHackageFeatures env@ServerEnv{serverVerbosity = verbosity} = do
, getFeatureInterface downloadFeature
, getFeatureInterface tagsFeature
, getFeatureInterface versionsFeature
-- [reverse index disabled] , getFeatureInterface reverseFeature
, getFeatureInterface reverseFeature
, getFeatureInterface searchFeature
, getFeatureInterface listFeature
, getFeatureInterface platformFeature
Expand Down
5 changes: 4 additions & 1 deletion Distribution/Server/Features/Core.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -230,7 +230,8 @@ data CoreResource = CoreResource {

-- | Find a PackageId or PackageName inside a path.
packageInPath :: forall m a. (MonadPlus m, FromReqURI a) => DynamicPath -> m a,

-- | Find a TagName inside a path.
tagInPath :: forall m a. (MonadPlus m, FromReqURI a) => DynamicPath -> m a,
-- | Find a tarball's PackageId from inside a path, doing some checking
-- for consistency between the package and tarball.
--
Expand Down Expand Up @@ -448,6 +449,8 @@ coreFeature ServerEnv{serverBlobStore = store} UserFeature{..}

packageInPath dpath = maybe mzero return (lookup "package" dpath >>= fromReqURI)

tagInPath dpath = maybe mzero return (lookup "tag" dpath >>= fromReqURI)

packageTarballInPath dpath = do
PackageIdentifier name version <- packageInPath dpath
case lookup "tarball" dpath >>= fromReqURI of
Expand Down
Loading