Distribution.Hup.Parse

extract info from cabal files and .tgz names.

Documentation

rstrip :: String -> String

strip whitespace from end

>>> rstrip "abcd \t\n\r"
"abcd"

lstrip :: String -> String

strip whitespace from beginning

>>> lstrip "\t\n\r   abcd"
"abcd"

replace :: Eq a => [a] -> [a] -> [a] -> [a]

Replace a subsequence everywhere it occurs. The first argument must not be the empty list.

from NDM's extra-1.5.1

>>> replace "el" "_" "Hello Bella" == "H_lo B_la"
True
>>> replace "el" "e" "Hello"       == "Helo"
True

\xs ys -> not (null xs) ==> replace xs xs ys == ys
replace "" "e" "Hello"         == undefined

takeWhileEnd :: (a -> Bool) -> [a] -> [a]

Like dropWhileEnd, but for take.

(taken from filepath-1.4.1.1)

>>> takeWhileEnd (< 10) [1, 2, 10, 3, 4, -3]
[3,4,-3]

spanEnd :: (a -> Bool) -> [a] -> ([a], [a])

like span, but from the end

>>> spanEnd (< 3) [4,3,2,1,4,3,2,1]
([4,3,2,1,4,3],[2,1])
>>> spanEnd (< 9) [1,2,3]
([],[1,2,3])
>>> spanEnd (< 0) [1,2,3]
([1,2,3],[])

breakEnd :: (a -> Bool) -> [a] -> ([a], [a])

like break, but from the end

>>> breakEnd (> 3) [4,3,2,1,4,3,2,1]
([4,3,2,1,4],[3,2,1])
>>> breakEnd (< 9) [1,2,3]
([1,2,3],[])
>>> breakEnd (> 9) [1,2,3]
([],[1,2,3])

findCabal :: IO (Maybe FilePath)

if there's a .cabal file in the current dir, return its file name.

from NDM's neil-0.10

readCabal :: IO String

find & read contents of Cabal file from current dir, if it exists. else returns empty string.

from NDM's neil-0.10

extractCabal :: String -> String -> String

extractCabal fieldName cabalConts: extract contents of field named fieldName from a Cabal file string.

field name is case-insensitive [folded to lowercase]

from NDM's neil-0.10

parseTgzFilename :: (IsString s, MonadError s m) => FilePath -> m (IsDocumentation, Package)

Inspect the name of a .tar.gz file to work out the package name and version it's for, and whether it is for documentation or a package.

parseTgzFilename' :: IsString s => FilePath -> Either s (IsDocumentation, Package)

parseTgzFilename' specialized to Either.

>>> (parseTgzFilename' "foo-bar-baz-0.1.0.0.2.3.0.1.tar.gz") :: Either String (IsDocumentation, Package)
Right (IsPackage,Package {packageName = "foo-bar-baz", packageVersion = "0.1.0.0.2.3.0.1"})

data Upload

Bundle together information useful for an upload.

Constructors

Upload

Fields

• package :: Package

  package name & version

• fileToUpload :: FilePath

  file being uploaded

• fileConts :: Maybe ByteString

  file conts

• uploadType :: IsDocumentation

  docco or package

• isCandidate :: IsCandidate

  candidate or not

Instances

Eq Upload

Defined in Distribution.Hup.Types

Methods

(==) :: Upload -> Upload -> Bool

(/=) :: Upload -> Upload -> Bool

Show Upload

Defined in Distribution.Hup.Types

Methods

showsPrec :: Int -> Upload -> ShowS

show :: Upload -> String

showList :: [Upload] -> ShowS

data Package

name and version of a package

Constructors

Package

Fields

• packageName :: String
• packageVersion :: String

Instances

Eq Package

Defined in Distribution.Hup.Types

Methods

(==) :: Package -> Package -> Bool

(/=) :: Package -> Package -> Bool

Read Package

Defined in Distribution.Hup.Types

Methods

readsPrec :: Int -> ReadS Package

readList :: ReadS [Package]

readPrec :: ReadPrec Package

readListPrec :: ReadPrec [Package]

Show Package

Defined in Distribution.Hup.Types

Methods

showsPrec :: Int -> Package -> ShowS

show :: Package -> String

showList :: [Package] -> ShowS

data IsDocumentation

are we uploading a package or just docs

Constructors

IsPackage

IsDocumentation

Instances

Eq IsDocumentation

Defined in Distribution.Hup.Types

Methods

(==) :: IsDocumentation -> IsDocumentation -> Bool

(/=) :: IsDocumentation -> IsDocumentation -> Bool

Read IsDocumentation

Defined in Distribution.Hup.Types

Methods

readsPrec :: Int -> ReadS IsDocumentation

readList :: ReadS [IsDocumentation]

readPrec :: ReadPrec IsDocumentation

readListPrec :: ReadPrec [IsDocumentation]

Show IsDocumentation

Defined in Distribution.Hup.Types

Methods

showsPrec :: Int -> IsDocumentation -> ShowS

show :: IsDocumentation -> String

showList :: [IsDocumentation] -> ShowS

data IsCandidate

whether a package is a normal one or a candidate

Constructors

NormalPkg

CandidatePkg

Instances

Eq IsCandidate

Defined in Distribution.Hup.Types

Methods

(==) :: IsCandidate -> IsCandidate -> Bool

(/=) :: IsCandidate -> IsCandidate -> Bool

Read IsCandidate

Defined in Distribution.Hup.Types

Methods

readsPrec :: Int -> ReadS IsCandidate

readList :: ReadS [IsCandidate]

readPrec :: ReadPrec IsCandidate

readListPrec :: ReadPrec [IsCandidate]

Show IsCandidate

Defined in Distribution.Hup.Types

Methods

showsPrec :: Int -> IsCandidate -> ShowS

show :: IsCandidate -> String

showList :: [IsCandidate] -> ShowS