zifter-git (empty) → 0.0.0.0

raw patch · 4 files changed

+69/−0 lines, 4 filesdep +basedep +pathdep +processsetup-changed

Dependencies added: base, path, process, zifter

Files

LICENSE +21/−0
Setup.hs +3/−0
src/Zifter/Git.hs +19/−0
zifter-git.cabal +26/−0

+ LICENSE view

@@ -0,0 +1,21 @@+MIT License++Copyright (c) 2017 Tom Sydney Kerckhove++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to deal+in the Software without restriction, including without limitation the rights+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell+copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.

+ Setup.hs view

@@ -0,0 +1,3 @@+import Distribution.Simple++main = defaultMain

+ src/Zifter/Git.hs view

@@ -0,0 +1,19 @@+module Zifter.Git where++import Path+import System.Exit+import System.Process++import Zifter.Zift++gitAddAllZift :: Zift ()+gitAddAllZift = do+    rd <- getRootDir+    let cmd = "git add ."+    ec <-+        liftIO $+        createProcess ((shell cmd) {cwd = Just $ toFilePath rd}) >>=+        (waitForProcess . (\(_, _, _, ph) -> ph))+    case ec of+        ExitFailure c -> fail $ unwords [cmd, "failed with exit code", show c]+        ExitSuccess -> pure ()

+ zifter-git.cabal view

@@ -0,0 +1,26 @@+name: zifter-git+synopsis: zifter-git+description: zifter-git+version: 0.0.0.0+cabal-version: >=1.10+build-type: Simple+license: MIT+license-file: LICENSE+copyright: Copyright: (c) 2017 Tom Sydney Kerckhove+maintainer: syd.kerckhove@gmail.com+homepage: http://cs-syd.eu+category: Zift+author: Tom Sydney Kerckhove++library+    exposed-modules:+        Zifter.Git+    build-depends:+        base >=4.9 && <=5,+        zifter >=0.0 && <0.1,+        process -any,+        path >=0.5 && <0.6+    default-language: Haskell2010+    hs-source-dirs: src/+    ghc-options: -Wall+