diff options
Diffstat (limited to 'frontend/syntax.icl')
| -rw-r--r-- | frontend/syntax.icl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/frontend/syntax.icl b/frontend/syntax.icl index b670b7e..fc47517 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -941,6 +941,13 @@ where _ = file <<< "STE_???" +instance <<< IdentOrQualifiedIdent +where + (<<<) file (Ident ident) + = file <<< ident + (<<<) file (QualifiedIdent module_ident name) + = file<<<'\''<<<module_ident<<<"'."<<<name + readable :: !Ident -> String // somewhat hacky readable {id_name} | size id_name>0 && id_name.[0]=='_' |