zifter-cabal (empty) → 0.0.0.0

raw patch · 4 files changed

+103/−0 lines, 4 filesdep +basedep +directorydep +filepathsetup-changed

Dependencies added: base, directory, filepath, path, path-io, process, zifter

Files

• LICENSE +21/−0
• Setup.hs +3/−0
• src/Zifter/Cabal.hs +50/−0
• zifter-cabal.cabal +29/−0

@@ -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.

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

@@ -0,0 +1,50 @@+module Zifter.Cabal where++import Control.Monad.IO.Class+import Data.Foldable+import Path+import Path.IO+import System.Exit (ExitCode(..))+import System.IO (hGetContents)+import System.Process++import Zifter.Zift++cabalFormatZift :: Zift ()+cabalFormatZift = do+    () <- cabalCheckAndPrintVersion+    cabalFormat++cabalCheckAndPrintVersion :: Zift ()+cabalCheckAndPrintVersion = do+    let cmd = "cabal --version"+    (_, mouth, _, ph) <-+        liftIO $ createProcess ((shell cmd) {std_out = CreatePipe})+    ec <- liftIO $ waitForProcess ph+    case mouth of+        Nothing -> pure ()+        Just outh -> liftIO (hGetContents outh) >>= printZift+    case ec of+        ExitFailure c -> fail $ unwords [cmd, "failed with exit code", show c]+        ExitSuccess -> pure ()++cabalFormat :: Zift ()+cabalFormat = do+    rd <- getRootDir+    cabalFiles <-+        liftIO $+        (filter ((".cabal" ==) . fileExtension) . snd) <$> listDirRecur rd+    for_ cabalFiles formatSingleCabalFile++formatSingleCabalFile :: Path Abs File -> Zift ()+formatSingleCabalFile cabalFile = do+    let formatCmd = "cabal format"+    cec <- liftIO $ system $ unwords [formatCmd, toFilePath cabalFile]+    case cec of+        ExitFailure c -> do+            printPreprocessingError $+                unwords ["Failed to format cabal file:", toFilePath cabalFile]+            fail $ unwords [formatCmd, "failed with exit code", show c]+        ExitSuccess ->+            printPreprocessingDone $+            unwords ["Formatted cabal file:", toFilePath cabalFile]

@@ -0,0 +1,29 @@+name: zifter-cabal+synopsis: zifter-cabal+description: zifter-cabal+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.Cabal+    build-depends:+        base >=4.9 && <=5,+        process -any,+        filepath >=1.4 && <1.5,+        directory -any,+        zifter >=0.0 && <0.1,+        path >=0.5 && <0.6,+        path-io >=1.2 && <1.3+    default-language: Haskell2010+    hs-source-dirs: src/+    ghc-options: -Wall+