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