suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Marked up channel bundles as being mobile

Browse Source
This commit is contained in:
Neil Brown 2009-03-23 21:12:36 +00:00
parent f73171140c
commit 34ae9861d0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/Types.hs
View File

@ -635,6 +635,7 @@ isSequenceType _ _ = False
isMobileType :: (CSMR m, Die m) => A.Type -> m Bool isMobileType :: (CSMR m, Die m) => A.Type -> m Bool
isMobileType (A.Mobile {}) = return True isMobileType (A.Mobile {}) = return True
isMobileType t@(A.Record n) = recordAttr (A.nameMeta n) t >>* A.mobileRecord isMobileType t@(A.Record n) = recordAttr (A.nameMeta n) t >>* A.mobileRecord
isMobileType (A.ChanDataType {}) = return True
isMobileType _ = return False isMobileType _ = return False
--}}} --}}}