Skip to content

Instantly share code, notes, and snippets.

@mpickering
Created September 18, 2017 11:06
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mpickering/6ec5501400e103d64284701d7537f223 to your computer and use it in GitHub Desktop.
Save mpickering/6ec5501400e103d64284701d7537f223 to your computer and use it in GitHub Desktop.
-- RHS size: {terms: 16, types: 13, coercions: 86, joins: 0/0}
frag33
frag33
= case frag25 `cast` <Co:8> of { V3 a0_aaD9 a1_aaDa a2_aaDb ->
case (\ @ kt_Xair -> W16# 0##) `cast` <Co:78> of { W16# x_aafN ->
case x_aafN of {
__DEFAULT -> a0_aaD9;
1## -> a1_aaDa;
2## -> a2_aaDb
}
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment