fixup! Add or_succeed primitive

Author: wezm

tests/succeed/primitives.fathom

@@ -72,6 +72,7 @@ let _ = link : Pos -> Format -> Format;
 let _ = deref : fun (f : Format) -> Ref f -> Format;
 let _ = stream_pos : Format;
 let _ = succeed : fun (Elem : Type) -> Elem -> Format;
+let _ = or_succeed : Bool -> fun (A : Format) -> Repr A -> Format;
 let _ = fail : Format;
 let _ = unwrap : fun (A : Type) -> Option A -> Format;
 let _ = Repr : Format -> Type;

tests/succeed/primitives.snap

@@ -69,6 +69,7 @@ let _ : _ = link;
 let _ : _ = deref;
 let _ : _ = stream_pos;
 let _ : _ = succeed;
+let _ : _ = or_succeed;
 let _ : _ = fail;
 let _ : _ = unwrap;
 let _ : _ = Repr;