diff options
| author | ronny | 2001-11-01 15:30:29 +0000 |
|---|---|---|
| committer | ronny | 2001-11-01 15:30:29 +0000 |
| commit | b1de57220ddc6025e3731f2579549866b058f134 (patch) | |
| tree | b763d1a4973f25211579f296176278ce68e8eadd /frontend/frontend.icl | |
| parent | added --dump-args and --restore-args options (diff) | |
pass strictness information from C to Clean, print strict exported and all types in Clean
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@877 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/frontend.icl')
| -rw-r--r-- | frontend/frontend.icl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/frontend/frontend.icl b/frontend/frontend.icl index 2c5fe9a..d2c4a3d 100644 --- a/frontend/frontend.icl +++ b/frontend/frontend.icl @@ -396,4 +396,21 @@ where show_dcl_function {ft_symb, ft_type} file = file <<< ft_symb <<< " :: " <<< ft_type <<< "\n" + +:: ListTypesKind = ListTypesNone | ListTypesInferred | ListTypesStrictExports | ListTypesAll +:: ListTypesOption = + { lto_showAttributes :: Bool + , lto_listTypesKind :: ListTypesKind + } +instance == ListTypesKind where + (==) ListTypesNone ListTypesNone + = True + (==) ListTypesInferred ListTypesInferred + = True + (==) ListTypesStrictExports ListTypesStrictExports + = True + (==) ListTypesAll ListTypesAll + = True + (==) _ _ + = False
\ No newline at end of file |