cabalg 0.2.4 → 0.2.5

raw patch · 3 files changed

+5/−7 lines, 3 files

Files

cabalg.cabal +1/−1
src/Git.hs +3/−4
src/Main.hs +1/−2

cabalg.cabal view

@@ -1,5 +1,5 @@ name: cabalg-version: 0.2.4+version: 0.2.5 synopsis: alias for cabal install from given git repo license: MIT license-file: LICENSE

src/Git.hs view

@@ -1,6 +1,5 @@ module Git where -import Control.Monad import System.Directory import System.FilePath() import System.Process@@ -9,7 +8,7 @@ clone :: String       -- | url       -> FilePath     -- | directory where repository will be cloned to       -> IO ()-clone url dir = void $ readProcess "git"+clone url dir = putStrLn =<< readProcess "git"   [ "clone"   , "--branch", "master"   , "--single-branch"@@ -24,9 +23,9 @@               -> FilePath -- | directory where repository will be cloned to               -> IO () cloneRevision url revision dir = do-  void $ readProcess "git" [ "clone", url, dir ] []+  putStrLn =<< readProcess "git" [ "clone", url, dir ] []   currentDir <- getCurrentDirectory   setCurrentDirectory dir-  void $ readProcess "git" [ "checkout", revision, "--force", "--quiet" ] []+  putStrLn =<< readProcess "git" [ "checkout", revision, "--force", "--quiet" ] []   setCurrentDirectory currentDir

src/Main.hs view

@@ -1,6 +1,5 @@ import Control.Applicative import Control.Arrow-import Control.Monad import Data.List import Data.Maybe import System.Directory@@ -41,7 +40,7 @@       url = takeWhile (/= '@') urlAndMaybeRevision  cabalInstall :: [String] -> Maybe String -> IO ()-cabalInstall cabalFiles args = void $ readProcess "cabal" ("install" : cabalFiles ++ words (fromMaybe "" args)) []+cabalInstall cabalFiles args = putStrLn =<< readProcess "cabal" ("install" : cabalFiles ++ words (fromMaybe "" args)) []  repoName :: String -> String repoName = takeWhile (/= '@') . lastSplitOn '/'