github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 05:27:08 +03:00
Code Issues Projects Releases Wiki Activity

foolish stabs at fixing bugs. I can't brain anymore, enough for today

Browse Source
This commit is contained in:
Patrick Thomson 2018-07-31 17:55:47 -04:00
parent 76727e07da
commit d7ee02449a
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Reprinting/Algebraic.hs
View File

@ -149,7 +149,7 @@ descend :: (Reprintable constr, HasField fields History) => SubtermAlgebra const
descend t = history >>= \case descend t = history >>= \case
-- No action is necessary for a pristine node. -- No action is necessary for a pristine node.
Pristine _ -> pure () Pristine _ -> pure ()
Generated -> local (\c -> c { rcHistory = Generated}) (whenGenerated (fmap subtermRef t)) Generated -> whenGenerated (fmap subtermRef t)
Modified _ -> whenGenerated (fmap (\x -> into (subterm x) (subtermRef x)) t) Modified _ -> whenGenerated (fmap (\x -> into (subterm x) (subtermRef x)) t)
Refactored r -> do Refactored r -> do
st <- get @RPState st <- get @RPState

3
src/Semantic/Util.hs
View File

@ -134,10 +134,11 @@ testReprinter = do
pure (src, tree) pure (src, tree)
let tagged = increaseNumbers (mark Modified tree) let tagged = increaseNumbers (mark Modified tree)
pPrint tagged
let toks = reprint src tagged let toks = reprint src tagged
pure toks pure toks
testConcrete = concretize (Proxy @'Language.JSON) <$> testReprinter
-- Evaluate a project consisting of the listed paths. -- Evaluate a project consisting of the listed paths.
evaluateProject proxy parser lang paths = withOptions debugOptions $ \ config logger statter -> evaluateProject proxy parser lang paths = withOptions debugOptions $ \ config logger statter ->