packages feed

ats-pkg 3.2.5.3 → 3.2.5.6

raw patch · 4 files changed

+11/−7 lines, 4 files

Files

CHANGELOG.md view
@@ -1,6 +1,6 @@ # ats-pkg -## 3.2.5.0+## 3.2.5.6    * Use `libarchive` instead of `tar`   * Change URL for compilers
ats-pkg.cabal view
@@ -1,12 +1,12 @@ cabal-version: 2.0 name: ats-pkg-version: 3.2.5.3+version: 3.2.5.6 license: BSD3 license-file: LICENSE copyright: Copyright: (c) 2018-2019 Vanessa McHale maintainer: vamchale@gmail.com author: Vanessa McHale-tested-with: ghc ==8.4.4 ghc ==8.2.2 ghc ==8.6.3+tested-with: ghc ==8.4.4 ghc ==8.2.2 ghc ==8.6.4 bug-reports: https://github.com/vmchale/atspkg/issues synopsis: A build tool for ATS description:
src/Language/ATS/Package/Build.hs view
@@ -271,7 +271,8 @@  -- | The directory that will be @PATSHOME@. patsHomeAtsPkg :: MonadIO m => Version -> m String-patsHomeAtsPkg v = fmap (</> show v) (pkgHome (GCC Nothing Nothing))+patsHomeAtsPkg v = fmap (</> (vs </> "ATS2-Postiats-" ++ vs)) (pkgHome (GCC Nothing Nothing))+    where vs = show v  home' :: MonadIO m => Version -- ^ Compiler version                    -> Version -- ^ Library version
src/Language/ATS/Package/Compiler.hs view
@@ -26,10 +26,13 @@  compilerDir :: Version -> IO FilePath compilerDir v = makeAbsolute =<< dir-    where dir = getAppUserDataDirectory ("atspkg" </> show v)+    where dir = getAppUserDataDirectory ("atspkg" </> vs </> "ATS2-Postiats-" ++ vs)+          vs = show v  pkgUrl :: Version -> String-pkgUrl v = "https://github.com/vmchale/atspkg/releases/download/compiler/ATS2-Postiats-" ++ show v ++ ".tar.gz"+pkgUrl v =+    let vs = show v+        in "https://cytranet.dl.sourceforge.net/project/ats2-lang/ats2-lang/ats2-postiats-" ++ vs ++ "/ATS2-Postiats-" ++ vs ++ ".tgz"  withCompiler :: String -> Version -> IO () withCompiler s v = putStrLn $ s ++ " compiler v" ++ show v ++ "..."@@ -48,7 +51,7 @@         response <- responseBody <$> httpLbs (initialRequest { method = "GET" }) manager          withCompiler "Unpacking" v-        Archive.unpackToDir cd (BS.toStrict $ decompress response)+        Archive.unpackToDir (takeDirectory cd) (BS.toStrict $ decompress response)  make :: Verbosity -> Version -> FilePath -> IO () make v' v cd =