24f27ec39d
Fully working, including --fast/--relaxed. Note that, while git-annex addurl --relaxed is not going to check youtube-dl, I kept git annex importfeed --relaxed checking it. Thinking is that, let's not break people's importfeed cron jobs, and importfeed does not typically have to check a large number of new items, so it's ok if it's a little bit slower when used with youtube playlist feeds. importfeed's behavior is also improved (?) when a feed has links in it to non-media files. Before, those were skipped. Now, the content of the link is downloaded. This had to be done, because trying to use youtube-dl is slow, and if those were skipped, it would have to check every time importfeed was run. While this behavior change may not be desirable for some feeds, that intersperse links to web pages with enclosures, it will be desirable for other feeds, that have non-enclosure directy links to media files. Remove old quvi modules. This commit was sponsored by Øyvind Andersen Holm.
113 lines
2.2 KiB
Haskell
113 lines
2.2 KiB
Haskell
{- git-annex build info reporting
|
|
-
|
|
- Copyright 2013-2017 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
module BuildInfo where
|
|
|
|
import Data.List
|
|
import Data.Ord
|
|
import qualified Data.CaseInsensitive as CI
|
|
|
|
buildFlags :: [String]
|
|
buildFlags = filter (not . null)
|
|
[ ""
|
|
#ifdef WITH_ASSISTANT
|
|
, "Assistant"
|
|
#else
|
|
#warning Building without the assistant.
|
|
#endif
|
|
#ifdef WITH_WEBAPP
|
|
, "Webapp"
|
|
#else
|
|
#warning Building without the webapp. You probably need to install Yesod..
|
|
#endif
|
|
#ifdef WITH_PAIRING
|
|
, "Pairing"
|
|
#else
|
|
#warning Building without local pairing.
|
|
#endif
|
|
#ifdef WITH_TESTSUITE
|
|
, "Testsuite"
|
|
#else
|
|
#warning Building without the testsuite.
|
|
#endif
|
|
#ifdef WITH_S3
|
|
, "S3"
|
|
#if MIN_VERSION_aws(0,10,6)
|
|
++ "(multipartupload)"
|
|
#endif
|
|
#if MIN_VERSION_aws(0,13,0)
|
|
++ "(storageclasses)"
|
|
#endif
|
|
#else
|
|
#warning Building without S3.
|
|
#endif
|
|
#ifdef WITH_WEBDAV
|
|
, "WebDAV"
|
|
#else
|
|
#warning Building without WebDAV.
|
|
#endif
|
|
#ifdef WITH_INOTIFY
|
|
, "Inotify"
|
|
#endif
|
|
#ifdef WITH_FSEVENTS
|
|
, "FsEvents"
|
|
#endif
|
|
#ifdef WITH_KQUEUE
|
|
, "Kqueue"
|
|
#endif
|
|
#ifdef WITH_DBUS
|
|
, "DBus"
|
|
#endif
|
|
#ifdef WITH_DESKTOP_NOTIFY
|
|
, "DesktopNotify"
|
|
#endif
|
|
#ifdef WITH_CONCURRENTOUTPUT
|
|
, "ConcurrentOutput"
|
|
#else
|
|
#warning Building without ConcurrentOutput
|
|
#endif
|
|
#ifdef WITH_TORRENTPARSER
|
|
, "TorrentParser"
|
|
#endif
|
|
#ifdef WITH_MAGICMIME
|
|
, "MagicMime"
|
|
#endif
|
|
-- Always enabled now, but users may be used to seeing these flags
|
|
-- listed.
|
|
, "Feeds"
|
|
]
|
|
|
|
-- Not a complete list, let alone a listing transitive deps, but only
|
|
-- the ones that are often interesting to know.
|
|
dependencyVersions :: [String]
|
|
dependencyVersions = map fmt $ sortBy (comparing (CI.mk . fst))
|
|
[ ("feed", VERSION_feed)
|
|
, ("uuid", VERSION_uuid)
|
|
, ("bloomfilter", VERSION_bloomfilter)
|
|
, ("http-client", VERSION_http_client)
|
|
, ("persistent-sqlite", VERSION_persistent_sqlite)
|
|
, ("cryptonite", VERSION_cryptonite)
|
|
#ifdef WITH_S3
|
|
, ("aws", VERSION_aws)
|
|
#endif
|
|
#ifdef WITH_WEBDAV
|
|
, ("DAV", VERSION_DAV)
|
|
#endif
|
|
#ifdef WITH_TORRENTPARSER
|
|
, ("torrent", VERSION_torrent)
|
|
#endif
|
|
#ifdef WITH_WEBAPP
|
|
, ("yesod", VERSION_yesod)
|
|
#endif
|
|
#ifdef TOOL_VERSION_ghc
|
|
, ("ghc", TOOL_VERSION_ghc)
|
|
#endif
|
|
]
|
|
where
|
|
fmt (p, v) = p ++ "-" ++ v
|