Add descr attribute to JSON parser (36ab546f) · Commits · i7 / peregrine

src/Parser/PP.hs

+2 −1

Original line number	Diff line number	Diff line
		@@ -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)