aur 1.1.0 → 2.0.0
raw patch · 3 files changed
+9/−3 lines, 3 files
Files
- Linux/Arch/Aur/Pkgbuild.hs +6/−0
- Linux/Arch/Aur/Types.hs +2/−2
- aur.cabal +1/−1
Linux/Arch/Aur/Pkgbuild.hs view
@@ -1,5 +1,6 @@ {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE ViewPatterns #-} -- | -- Module : Linux.Arch.Aur.Pkgbuild@@ -9,6 +10,7 @@ module Linux.Arch.Aur.Pkgbuild ( pkgbuild+ , pkgbuild' , pkgbuildUrl ) where import Control.Applicative ((<$>))@@ -41,3 +43,7 @@ where rb = (^? responseBody) txt = Just . TL.toStrict . decodeUtf8 e f = liftIO $ f `catch` (\(_ :: E) -> return Nothing)++-- | Callable with Text as well, if that's easier.+pkgbuild' :: MonadIO m => Text -> m (Maybe Text)+pkgbuild' (unpack -> p) = pkgbuild p
Linux/Arch/Aur/Types.hs view
@@ -27,7 +27,7 @@ , urlOf :: Text , aurVotesOf :: Int , isOutOfDate :: Bool- , aurMaintainerOf :: Text+ , aurMaintainerOf :: Maybe Text , submissionDatOf :: Int , modifiedDateOf :: Int , aurTarballUrlOf :: Text@@ -50,7 +50,7 @@ v .: "URL" <*> v .: "NumVotes" <*> (f <$> (v .: "OutOfDate")) <*>- v .: "Maintainer" <*>+ v .:? "Maintainer" <*> v .: "FirstSubmitted" <*> v .: "LastModified" <*> v .: "URLPath" <*>
aur.cabal view
@@ -4,7 +4,7 @@ -- The name of the package. name: aur -version: 1.1.0+version: 2.0.0 synopsis: Access metadata from the Arch Linux User Repository.