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

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)
Supports Markdown
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