{-# LANGUAGE ScopedTypeVariables #-}
module Aura.Pkgbuild.Fetch
( getPkgbuild
, pkgbuildUrl
) where
import Aura.Types (PkgName(..), Pkgbuild(..))
import Aura.Utils (urlContents)
import Network.HTTP.Client (Manager)
import Network.URI (escapeURIString, isUnescapedInURIComponent)
import RIO
import RIO.FilePath ((</>))
import qualified RIO.Text as T
baseUrl :: String
baseUrl = "https://aur.archlinux.org/"
pkgbuildUrl :: String -> String
pkgbuildUrl p = baseUrl </> "cgit/aur.git/plain/PKGBUILD?h="
++ escapeURIString isUnescapedInURIComponent p
getPkgbuild :: Manager -> PkgName -> IO (Maybe Pkgbuild)
getPkgbuild m p = e $ do
t <- urlContents m . pkgbuildUrl . T.unpack $ pnName p
pure $ fmap Pkgbuild t
where
e :: IO (Maybe a) -> IO (Maybe a)
e f = f `catch` (\(_ :: SomeException) -> return Nothing)