lentil 0.1.3.0 → 0.1.3.1
raw patch · 7 files changed
+31/−5 lines, 7 files
Files
- changes.txt +7/−0
- lentil.cabal +2/−1
- src/Lentil/Parse/Run.hs +1/−0
- src/Lentil/Parse/Syntaxes.hs +3/−1
- src/Main.hs +4/−3
- test/Lentil/Parse/RunSpec.hs +3/−0
- test/test-files/lang-comm/nix.nix +11/−0
changes.txt view
@@ -1,3 +1,10 @@+0.1.3.1+-------++- Released Sat 01 Aug 2015 20:36:50 CEST+- Added Nix syntax (.nix) (requested by Tomislav).+- Added .pl and .sh test files to vcs.+ 0.1.3.0 -------
lentil.cabal view
@@ -1,5 +1,5 @@ name: lentil-version: 0.1.3.0+version: 0.1.3.1 synopsis: frugal issue tracker description: minumum effort, cohesive issue tracker based on ubiquitous @TODO@s and @FIXME@s conventions.@@ -22,6 +22,7 @@ test/test-files/lang-comm/ruby.rb, test/test-files/lang-comm/perl.pl, test/test-files/lang-comm/shell.sh,+ test/test-files/lang-comm/nix.nix, test/test-files/lang-comm/test.txt, test/test-files/lang-comm/text.txt, test/test-files/specific/contiguous.c,
src/Lentil/Parse/Run.hs view
@@ -24,6 +24,7 @@ import Prelude -- 7.8 hack +-- fixme: hGetContents: invalid argument (invalid byte sequence) [u:3] -- main function with wich to parse issues; errors on stderr issueFinder :: [FilePath] -> IO [Issue]
src/Lentil/Parse/Syntaxes.hs view
@@ -1,7 +1,7 @@ ----------------------------------------------------------------------------- -- | -- Module : Lentil.Parse.Syntaxes--- Copyright : © 2015 Francesco Ariis+-- Copyright : © 2015 Francesco Ariis, Tomislav -- License : GPLv3 (see the LICENSE file) -- -- Languages descriptors@@ -32,6 +32,7 @@ | ext `elem` [".rb"] = Just ruby | ext `elem` [".pl", ".pm", ".t"] = Just perl | ext `elem` [".sh"] = Just perl -- shell+ | ext `elem` [".nix"] = Just nix | ext `elem` [".txt"] = Just text | otherwise = Nothing where ext = SF.takeExtension fp@@ -51,5 +52,6 @@ ruby = source $ ParSyntax ["#"] [("=begin", "=end")] ['"', '\''] [] perl = source $ ParSyntax ["#"] [] ['"', '\''] []+nix = source $ ParSyntax ["#"] [("/*", "*/")] ['"'] ['\''] text = (:[]) . MultiLine 1 <$> many anyChar
src/Main.hs view
@@ -28,7 +28,7 @@ short 'v' <> help "show version and copyright info" ) where- versionCopy = "lentil - a frugal issue tracker, version 0.1.3.0\n\+ versionCopy = "lentil - a frugal issue tracker, version 0.1.3.1\n\ \(C) 2015 Francesco Ariis - http://www.ariis.it\n\ \released under the GNU General Public License 3\n" @@ -37,7 +37,8 @@ runLentil :: LOptions -> IO () runLentil lo = uncurry findIssues (loInExcl lo) >>= \is -> -- grab issues let fil = filterAnd (loFilters lo) is -- filtered- ord = chainSorts fil (loSort lo) -- ordered+ -- ord = chainSorts fil (loSort lo) -- ordered+ -- todo leave sort out as now? [design] -- which function to use to output stuff (file/term) outFunction :: String -> IO ()@@ -54,7 +55,7 @@ in case loFormat lo of- Pretty -> outFunction (ppIssues bCol ord)+ Pretty -> outFunction (ppIssues bCol fil) -- fixme o ord? TagPop -> outFunction (ppPopularity bCol fil) Csv -> outFunction (issues2CSV fil) Comp -> outFunction (issues2Compiler fil)
test/Lentil/Parse/RunSpec.hs view
@@ -64,6 +64,9 @@ it "parses a shell script source" $ fileParser "test/test-files/lang-comm/shell.sh" `shouldReturn` spt "test/test-files/lang-comm/shell.sh"+ it "parses a Nix source" $+ fileParser "test/test-files/lang-comm/nix.nix"+ `shouldReturn` spt "test/test-files/lang-comm/nix.nix" describe "issueFinder" $ do it "reads a file (code or txt) for issues" $
+ test/test-files/lang-comm/nix.nix view
@@ -0,0 +1,11 @@+# TODO: single+# comment+# todo single2++c = "st/*ring" # string+letter = 'c' # char++ /* todo block1+ TODO: block2 [tog] */++# end