packages feed

cgrep 6.4.19 → 6.4.20

raw patch · 5 files changed

+16/−16 lines, 5 files

Files

README.md view
@@ -4,7 +4,7 @@ Usage ----- -Cgrep 6.4.19 Usage: cgrep [OPTION] [PATTERN] files...+Cgrep 6.4.20 Usage: cgrep [OPTION] [PATTERN] files...  cgrep [OPTIONS] [ITEM] 
cgrep.cabal view
@@ -1,6 +1,6 @@ Name:                cgrep Description:         Cgrep: a context-aware grep for source codes-Version:             6.4.19+Version:             6.4.20 Synopsis:            Command line tool Homepage:            http://awgn.github.io/cgrep/ License:             GPL-2
src/CGrep/Strategy/Cpp/Semantic.hs view
@@ -57,14 +57,14 @@      -- quick Search... -        ps' = map C.pack $ (mapMaybe (\x -> case x of-                                            TokenCard (Cpp.TokenChar   xs _) -> Just (unquotes $ trim xs)-                                            TokenCard (Cpp.TokenString xs _) -> Just (unquotes $ trim xs)-                                            TokenCard t                      -> Just (Cpp.toString t)-                                            _                                -> Nothing-                                     ) . concat) patterns'+        ps' = filter (/= "OR") $ (mapMaybe (\x -> case x of+                                                    TokenCard (Cpp.TokenChar   xs _) -> Just (unquotes $ trim xs)+                                                    TokenCard (Cpp.TokenString xs _) -> Just (unquotes $ trim xs)+                                                    TokenCard t                      -> Just (Cpp.toString t)+                                                    _                                -> Nothing+                                            ) . concat) patterns' -        found = quickSearch opt ps' text'+        found = quickSearch opt (map C.pack ps') text'      -- put banners... 
src/CGrep/Strategy/Generic/Semantic.hs view
@@ -58,13 +58,13 @@      -- quickSearch ... -        ps' = map C.pack $ (mapMaybe (\x -> case x of-                                            TokenCard (Generic.TokenLiteral xs _) -> Just (unquotes $ trim xs)-                                            TokenCard t                           -> Just (tkToString t)-                                            _                                     -> Nothing-                                     ) . concat) patterns'+        ps' = filter (/= "OR") $ (mapMaybe (\x -> case x of+                                                    TokenCard (Generic.TokenLiteral xs _) -> Just (unquotes $ trim xs)+                                                    TokenCard t                           -> Just (tkToString t)+                                                    _                                     -> Nothing+                                            ) . concat) patterns' -        found = quickSearch opt ps' text'+        found = quickSearch opt (map C.pack ps') text'      -- put banners... 
src/Config.hs view
@@ -31,7 +31,7 @@ cgreprc = "cgreprc"  version :: String-version = "6.4.18"+version = "6.4.20"   data Config = Config