"""
subscriptionFoldersOf :: Model -> <ReadGraph> [SubscriptionFolder]
-subscriptionFoldersOf model = recurse (toResource model)
+subscriptionFoldersOf model = recurse model
where
- recurse r = do
- cs = resourceChildrenOf r
- folders = map fromResource $ filter isSubscriptionFolder cs
- folders
+ recurse r = filter isSubscriptionFolder (children r)
isSubscriptionFolder r = isInstanceOf r MOD.Subscription