git-freq (empty) → 0.0.1

raw patch · 5 files changed

+107/−0 lines, 5 filesdep +basedep +bytestringdep +containerssetup-changed

Dependencies added: base, bytestring, containers, hspec, optparse-applicative, process, text

Files

• LICENSE +30/−0
• Setup.hs +2/−0
• git-freq.cabal +42/−0
• src/Main.hs +32/−0
• test/Spec.hs +1/−0

@@ -0,0 +1,30 @@+Copyright (c) 2014, Fujimura Daisuke++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++    * Redistributions of source code must retain the above copyright+      notice, this list of conditions and the following disclaimer.++    * Redistributions in binary form must reproduce the above+      copyright notice, this list of conditions and the following+      disclaimer in the documentation and/or other materials provided+      with the distribution.++    * Neither the name of Fujimura Daisuke nor the names of other+      contributors may be used to endorse or promote products derived+      from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

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

@@ -0,0 +1,42 @@+Name:                   git-freq+Version:                0.0.1+Author:                 Fujimura Daisuke<me@fujimuradaisuke.com>+Maintainer:             Fujimura Daisuke<me@fujimuradaisuke.com>+License:                BSD3+License-File:           LICENSE+Synopsis:               A Git subcommand to show total addition, deletion per file+Description:            A Git subcommand to show total addition, deletion per file+Cabal-Version:          >= 1.10+Homepage:               https://github.com/fujimura/git-freq+Build-Type:             Simple++Executable git-freq+  Main-Is:              Main.hs+  Default-Language:     Haskell2010+  GHC-Options:          -Wall+  Hs-Source-Dirs:       src+  Build-Depends:        base >= 4 && < 5+                      , bytestring+                      , containers+                      , optparse-applicative+                      , process+                      , text++test-suite spec+  Main-Is:              Spec.hs+  Default-Language:     Haskell2010+  GHC-Options:          -Wall+  Hs-Source-Dirs:       src+                      , test+  Type:                 exitcode-stdio-1.0+  Build-Depends:        base+                      , bytestring+                      , containers+                      , hspec+                      , optparse-applicative+                      , process+                      , text++Source-Repository head+  Type:                 git+  Location:             git@github.com:fujimura/git-freq.git

@@ -0,0 +1,32 @@+module Main where++import           Git.Freq+import qualified Git.Freq.Version    as Version+import           Options.Applicative+++data Config = Config+  { version :: Bool+  , paths :: [FilePath]+  }++config :: Parser Config+config = Config+  <$> switch+      (long "version" <> short 'v' <> help "Show version")+  <*> many+      (argument str (metavar "PATH..." <> help "Target paths"))++main :: IO ()+main = do+    (Config showVersion paths) <- execParser opts+    if showVersion then putStrLn Version.version+                   else freq paths+  where+    opts = info (helper <*> config)+      ( fullDesc+      <> progDesc (unlines [ "Total addition, deletion per file will be shown as a csv in following format:"+                            , "`file name, addition, deletion`"+                            ])++     <> header "git-freq - Show frequently changed code in the repository")

@@ -0,0 +1,1 @@+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}