Commit cc5eb08f authored by Philipp Meyer's avatar Philipp Meyer
Browse files

Do not check default properties when displaying structure

parent 09e5a20f
Loading
Loading
Loading
Loading
+6 −1
Original line number Diff line number Diff line
@@ -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"