accessOpStr :: AccessOp -> PP.Doc
accessOpStr (Get ty) = "get" <> accessTypeStr ty
accessOpStr :: AccessOp -> PP.Doc
accessOpStr (Get ty) = "get" <> accessTypeStr ty
accessOpStr (Get ty) = "get" <> accessTypeStr ty