seqaid 0.2.1.1 → 0.3.0.0
raw patch · 6 files changed
+19/−14 lines, 6 files
Files
- Seqaid/Demo.hs +4/−2
- Seqaid/Global.hs +3/−10
- Seqaid/Prepro.hs +8/−1
- changelog.txt +3/−0
- dist/setup-config binary
- seqaid.cabal +1/−1
Seqaid/Demo.hs view
@@ -40,6 +40,7 @@ import Paths_seqaid import Data.Version import Data.List ( intercalate )+ import Data.Char ( isSpace ) #if USE_DOS -- Not using the constraint, because requires performing regex@@ -99,9 +100,10 @@ (_, Just hout, _, _) <- createProcess (proc "seqaidresolveleaky.sh" []) { std_out = CreatePipe }- resolved <- hGetContents hout- evaluate $ length resolved -- force reading of whole file!+ resolved' <- hGetContents hout+ evaluate $ length resolved' -- force reading of whole file! hClose hout+ let resolved = reverse $ dropWhile isSpace $ reverse resolved' #endif
Seqaid/Global.hs view
@@ -189,18 +189,11 @@ max_depth = 7 :: Int fixed_pat_sequence- = let shrink_pat- | deepseq_bounded_flag__new_improved_pattern_grammar = shrinkPat- | otherwise = shrinkPat- in ( map (\i -> compilePat ('*':show i)) [0,1..8] )- ++ ( reverse $ condenseEq shrink_pat fixed_pat )+ = ( map (\i -> compilePat ('*':show i)) [0,1..8] )+ ++ ( reverse $ condenseEq shrinkPat fixed_pat ) fixed_pat- | deepseq_bounded_flag__new_improved_pattern_grammar- = setPatternPatNodeUniqueIDs 0 $- compilePat "((!(!)(((!).!(!))))!(!(!)))"- | otherwise- = compilePat ".{.{..{.}.{.{.{.}#..{.}}}}..{..{.}}}"+ = setPatternPatNodeUniqueIDs 0 $ compilePat "((!(!)(((!).!(!))))!(!(!)))" -------------------------------------------------------------------------------
Seqaid/Prepro.hs view
@@ -571,9 +571,16 @@ in_sandbox <- detectSandbox + i_am_misconfigured <- doesFileExist+ "/home/builder/hackage-server/build-cache/tmp-install/bin/seqaidpp"+ let nowneeded = intercalate " " [ "-fplugin=Seqaid.Plugin"- , "-F -pgmF " ++ ( if in_sandbox then ".cabal-sandbox/bin/seqaidpp" else "seqaidpp" )+ , "-F -pgmF " ++ ( if i_am_misconfigured+ then "/home/builder/hackage-server/build-cache/tmp-install/bin/seqaidpp" -- please fix your broken build reports, they make me, cpphs, and hackage look bad+ else if in_sandbox+ then ".cabal-sandbox/bin/seqaidpp"+ else "seqaidpp" ) , "-optF omnitypic" ]
changelog.txt view
@@ -1,4 +1,7 @@ +0.2.1.1 -> 0.3.0.0+ - deepseq-bounded major version bump+ 0.2.1.0 -> 0.2.1.1 - added a non-manual USE_CPPHS flag to seqaid.cabal, which should in principle allow the client build system to try cpphs first, and
− dist/setup-config
binary file changed (229686 → absent bytes)
seqaid.cabal view
@@ -2,7 +2,7 @@ ------------------------------------------------------------------------------- name: seqaid-version: 0.2.1.1+version: 0.3.0.0 synopsis: Dynamic strictness control, including space leak repair license: BSD3 license-file: LICENSE