cabalg 0.2.5 → 0.2.6

raw patch · 2 files changed

+6/−2 lines, 2 files

Files

• cabalg.cabal +1/−1
• src/Main.hs +5/−1

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

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