Loading src/Options.hs +6 −1 Original line number Diff line number Diff line Loading @@ -110,7 +110,12 @@ options = ("Refine with METHOD (trap, siphon, utrap, usiphon, none, all)") , Option "s" ["structure"] (NoArg (\opt -> Right opt { optPrintStructure = True })) (NoArg (\opt -> Right opt { optPrintStructure = True, optProperties = case optProperties opt of PropDefault -> PropList [] (PropList props) -> PropList props })) "Print structural information" Loading Loading
src/Options.hs +6 −1 Original line number Diff line number Diff line Loading @@ -110,7 +110,12 @@ options = ("Refine with METHOD (trap, siphon, utrap, usiphon, none, all)") , Option "s" ["structure"] (NoArg (\opt -> Right opt { optPrintStructure = True })) (NoArg (\opt -> Right opt { optPrintStructure = True, optProperties = case optProperties opt of PropDefault -> PropList [] (PropList props) -> PropList props })) "Print structural information" Loading