stackage-cli 0.0.0.3 → 0.0.0.4

raw patch · 5 files changed

+18/−5 lines, 5 filesdep +http-client-tls

Dependencies added: http-client-tls

Files

• ChangeLog.md +4/−0
• README.md +2/−0
• main/Init.hs +3/−2
• main/Main.hs +3/−2
• stackage-cli.cabal +6/−1

@@ -1,3 +1,7 @@+## 0.0.0.4++* stackage-init now uses https [#34](https://github.com/fpco/stackage-cli/pull/34)+ ## 0.0.0.3  * Works with older versions of parsec [#28](https://github.com/fpco/stackage-cli/issues/28)

@@ -1,6 +1,8 @@ stackage-cli ============ +[![Build Status](https://travis-ci.org/fpco/stackage-cli.svg)](https://travis-ci.org/fpco/stackage-cli)+ A command-line interface for leveraging stackage.  You must have `ghc`, `ghc-pkg`, and `cabal` on your $PATH. This program will make various calls to those executables on your behalf.

@@ -16,6 +16,7 @@ import qualified Data.Text.Encoding as T import Data.Typeable (Typeable) import Network.HTTP.Client+import Network.HTTP.Client.TLS (tlsManagerSettings) import Network.HTTP.Types.Status (statusCode) import Network.HTTP.Types.Header (hUserAgent) import qualified Data.ByteString.Lazy as LBS@@ -52,7 +53,7 @@   mods = (metavar "SNAPSHOT" <> value "lts")  toUrl :: Snapshot -> String-toUrl t = "http://stackage.org/" <> t <> "/cabal.config"+toUrl t = "https://www.stackage.org/" <> t <> "/cabal.config"  snapshotReq :: Snapshot -> IO Request snapshotReq snapshot = case parseUrl (toUrl snapshot) of@@ -62,7 +63,7 @@     }  downloadSnapshot :: Snapshot -> IO LBS.ByteString-downloadSnapshot snapshot = withManager defaultManagerSettings $ \manager -> do+downloadSnapshot snapshot = withManager tlsManagerSettings $ \manager -> do   let getResponseLbs req = do         response <- httpLbs req manager         return $ responseBody response

@@ -7,6 +7,7 @@ import           Control.Applicative import           Control.Exception (catch) import           Control.Monad+import           Data.Monoid ((<>))     import           Data.Maybe (isJust) import           Data.List as List import           Data.Text (Text)@@ -14,13 +15,13 @@ import qualified Data.Text.IO as T import           Stackage.CLI import           System.Environment-import           System.IO (hPutStr, stderr)+import           System.IO (stderr) import           System.Exit import qualified Paths_stackage_cli as CabalInfo  onPluginErr :: PluginException -> IO () onPluginErr (PluginNotFound _ name) = do-  hPutStr stderr $ "Stackage plugin unavailable: " ++ T.unpack name+  T.hPutStr stderr $ "Stackage plugin unavailable: " <> name   exitFailure onPluginErr (PluginExitFailure _ i) = do   exitWith (ExitFailure i)

@@ -1,5 +1,5 @@ name:                stackage-cli-version:             0.0.0.3+version:             0.0.0.4 synopsis:   A CLI library for stackage commands description:@@ -20,6 +20,10 @@ category: Development extra-source-files:  README.md ChangeLog.md +source-repository head+  type:     git+  location: git://github.com/fpco/stackage-cli.git+ library   hs-source-dirs: src/   exposed-modules:@@ -73,6 +77,7 @@     , system-fileio     , optparse-applicative     , http-client+    , http-client-tls     , http-types     , bytestring   default-language:    Haskell2010