Changeset 11201 for trunk/CspCASL/StatAnaCSP.hs
- Timestamp:
- 03.01.2009 15:43:50 (11 months ago)
- Files:
-
- 1 modified
-
trunk/CspCASL/StatAnaCSP.hs (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CspCASL/StatAnaCSP.hs
r10619 r11201 22 22 import qualified Data.Set as S 23 23 24 import CASL.AS_Basic_CASL (FORMULA(..), FunKind(..), SORT, TERM(..), VAR,24 import CASL.AS_Basic_CASL (FORMULA(..), OpKind(..), SORT, TERM(..), VAR, 25 25 VAR_DECL(..)) 26 26 import CASL.MixfixParser (emptyMix, Mix(..), makeRules, mkIdSets, … … 474 474 -- signature, and return a set of corresponding communication types 475 475 -- for those operations. 476 getUnaryOpsById :: Id -> FunKind -> State CspCASLSign (S.Set CommType)476 getUnaryOpsById :: Id -> OpKind -> State CspCASLSign (S.Set CommType) 477 477 getUnaryOpsById ri kind = do 478 478 sig <- get