addSubscriptionToSubscriptionHandle :: [Subscription]
                                        -> Ptr SubscriptionListImpl
                                        -> IO Int
addSubscriptionToSubscriptionHandle  xs p =
      foldM (\_ s ->
                addToSubscriptionList p
                                      (subscriptonString s)
                                      (subscriptionCorrelation s)) 0 xs
addSubscriptionToSubscriptionHandle :: [Subscription]
                                        -> Ptr SubscriptionListImpl
                                        -> IO Int
addSubscriptionToSubscriptionHandle  xs p =
      foldM (\_ s ->
                addToSubscriptionList p
                                      (subscriptonString s)
                                      (subscriptionCorrelation s)) 0 xs
addSubscriptionToSubscriptionHandle  xs p =
      foldM (\_ s ->
                addToSubscriptionList p
                                      (subscriptonString s)
                                      (subscriptionCorrelation s)) 0 xs