populateSubscriptionListImpl :: [Subscription]
                                -> IO (ForeignPtr SubscriptionListImpl)
populateSubscriptionListImpl xs = do
    fsubsListImpl <- newSubscriptionListImpl
    withForeignPtr fsubsListImpl (addSubscriptionToSubscriptionHandle xs)
    return fsubsListImpl
populateSubscriptionListImpl :: [Subscription]
                                -> IO (ForeignPtr SubscriptionListImpl)
populateSubscriptionListImpl xs = do
    fsubsListImpl <- newSubscriptionListImpl
    withForeignPtr fsubsListImpl (addSubscriptionToSubscriptionHandle xs)
    return fsubsListImpl
populateSubscriptionListImpl xs = do
    fsubsListImpl <- newSubscriptionListImpl
    withForeignPtr fsubsListImpl (addSubscriptionToSubscriptionHandle xs)
    return fsubsListImpl