Commit 4ff6fa50 authored by Jakob Botsch Nielsen's avatar Jakob Botsch Nielsen

Tiny cleanup

parent 09da8b1b
......@@ -76,7 +76,7 @@ Instance state_settable : Settable _ :=
Section Equivalences.
Definition deserialize_rules (v : OakValue) : option Rules :=
do '((a, b), c) <- deserialize v;
do '(a, b, c) <- deserialize v;
Some (build_rules a b c).
Global Program Instance rules_equivalence : OakTypeEquivalence Rules :=
......
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