Skip to content
Snippets Groups Projects
Commit 284ffbfd authored by Matthew Pickering's avatar Matthew Pickering
Browse files

CC filter: fix order of run/invert boolean

parent b8eb11fe
No related branches found
No related tags found
No related merge requests found
Pipeline #91813 passed
Stage: test
Hide whitespace changes
Inline Side-by-side
ghc-debug-brick/src/Main.hs
+ 1
− 1
View file @ 284ffbfd
......@@ -903,7 +903,7 @@ dispatchFooterInput dbg FArrWordsSize form = filterOrRun dbg fo
dispatchFooterInput dbg (FFilterEras runf invert) form = filterOrRun dbg form runf (parseEraRange . T.pack) (pure . UIEraFilter invert)
dispatchFooterInput dbg (FFilterClosureSize invert) form = filterOrRun dbg form False readMaybe (pure . UISizeFilter invert)
dispatchFooterInput dbg (FFilterClosureType invert) form = filterOrRun dbg form False readMaybe (pure . UIClosureTypeFilter invert)
dispatchFooterInput dbg (FFilterCcId invert runf) form = filterOrRun dbg form runf readMaybe (pure . UICcId invert)
dispatchFooterInput dbg (FFilterCcId runf invert) form = filterOrRun dbg form runf readMaybe (pure . UICcId invert)
dispatchFooterInput dbg FProfile form = do
os <- get
asyncAction_ "Writing profile" os $ profile dbg (T.unpack (formState form))
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment