From 6699a7ce6ee7c0c68deb75d68adc3dddd1e790b2 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Mon, 8 Oct 2001 11:49:17 +0000
Subject: universally quantified attribute variables in typedefs added bug fix:
 combination of caching and omitted clasdefs

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@833 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/general.icl | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'frontend/general.icl')

diff --git a/frontend/general.icl b/frontend/general.icl
index b542268..4ac4931 100644
--- a/frontend/general.icl
+++ b/frontend/general.icl
@@ -17,6 +17,10 @@ cMAXINT :== 2147483647
 
 ::	BITVECT :== Int
 
+hasOption :: (Optional x) -> Bool
+hasOption (Yes _) 	= True
+hasOption No 		= False
+
 instance ~ Bool
 where ~ b = not b
 
-- 
cgit v1.2.3