Commit 36ab546f authored by Stefan Jaax's avatar Stefan Jaax

Add descr attribute to JSON parser

parent 50f66913
......@@ -164,7 +164,8 @@ data RecordPP = RecordPP {
transitions :: [RecordTransition],
initialStates :: [String],
trueStates :: [String],
predicate :: Maybe (QuantFormula String)
predicate :: Maybe (QuantFormula String),
description :: Maybe String
} deriving (Show)
$(deriveJSON defaultOptions ''RecordTransition)
......
Markdown is supported
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