Skip to content

Instantly share code, notes, and snippets.

@BlueHotDog
Last active August 3, 2018 09:20
Show Gist options
  • Save BlueHotDog/d8869e667e548d8490b701c041374209 to your computer and use it in GitHub Desktop.
Save BlueHotDog/d8869e667e548d8490b701c041374209 to your computer and use it in GitHub Desktop.
type fieldType =
| Numeric
| Alphanumeric
| Alpha;
type fieldData('a) = {
name: string,
width: int,
position: int,
value: option('a),
fieldType: fieldType
};
let recordTypeCode = {
name: "Record Type Code",
width: 1,
position: 1,
fieldType: Numeric,
value: Some("6"),
};
type fields = {
recordTypeCode: RequiredField(recordTypeCode)
};
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment