diff --git a/morpheus-graphql-subscriptions.cabal b/morpheus-graphql-subscriptions.cabal
--- a/morpheus-graphql-subscriptions.cabal
+++ b/morpheus-graphql-subscriptions.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           morpheus-graphql-subscriptions
-version:        0.20.1
+version:        0.21.0
 synopsis:       Morpheus GraphQL Subscriptions
 description:    Build GraphQL APIs with your favourite functional language!
 category:       web, graphql, subscriptions
@@ -43,8 +43,8 @@
       aeson >=1.4.4 && <3.0.0
     , base >=4.7.0 && <5.0.0
     , bytestring >=0.10.4 && <0.12.0
-    , morpheus-graphql-app >=0.20.0 && <0.21.0
-    , morpheus-graphql-core >=0.20.0 && <0.21.0
+    , morpheus-graphql-app >=0.21.0 && <0.22.0
+    , morpheus-graphql-core >=0.21.0 && <0.22.0
     , mtl >=2.0.0 && <3.0.0
     , relude >=0.3.0 && <2.0.0
     , text >=1.2.3 && <1.3.0
@@ -52,7 +52,7 @@
     , unliftio-core >=0.0.1 && <0.4.0
     , unordered-containers >=0.2.8 && <0.3.0
     , uuid >=1.0.0 && <1.4.0
-    , websockets >=0.11.0 && <1.0.0
+    , websockets >=0.12.6.0 && <1.0.0
   default-language: Haskell2010
 
 test-suite morpheus-subscription-test
@@ -68,8 +68,8 @@
     , base >=4.7.0 && <5.0.0
     , bytestring >=0.10.4 && <0.12.0
     , directory >=1.0.0 && <2.0.0
-    , morpheus-graphql-app >=0.20.0 && <0.21.0
-    , morpheus-graphql-core >=0.20.0 && <0.21.0
+    , morpheus-graphql-app >=0.21.0 && <0.22.0
+    , morpheus-graphql-core >=0.21.0 && <0.22.0
     , mtl >=2.0.0 && <3.0.0
     , relude >=0.3.0 && <2.0.0
     , tasty >=0.1.0 && <1.5.0
@@ -79,5 +79,5 @@
     , unliftio-core >=0.0.1 && <0.4.0
     , unordered-containers >=0.2.8 && <0.3.0
     , uuid >=1.0.0 && <1.4.0
-    , websockets >=0.11.0 && <1.0.0
+    , websockets >=0.12.6.0 && <1.0.0
   default-language: Haskell2010
diff --git a/src/Data/Morpheus/Subscriptions/Apollo.hs b/src/Data/Morpheus/Subscriptions/Apollo.hs
--- a/src/Data/Morpheus/Subscriptions/Apollo.hs
+++ b/src/Data/Morpheus/Subscriptions/Apollo.hs
@@ -10,22 +10,23 @@
     acceptApolloRequest,
     toApolloResponse,
     Validation,
+    ApolloSubscription (..),
   )
 where
 
 import Control.Applicative (Applicative (..))
 import Control.Monad.IO.Class (MonadIO (..))
 import Data.Aeson
-  ( (.:),
-    (.:?),
-    (.=),
-    FromJSON (..),
+  ( FromJSON (..),
     ToJSON (..),
     Value (..),
     eitherDecode,
     encode,
     pairs,
     withObject,
+    (.:),
+    (.:?),
+    (.=),
   )
 import Data.ByteString.Lazy.Char8
   ( ByteString,
@@ -64,10 +65,10 @@
     pendingRequest,
   )
 import Prelude
-  ( ($),
-    (.),
-    Show,
+  ( Show,
     String,
+    ($),
+    (.),
   )
 
 type ID = Text
@@ -96,7 +97,9 @@
   parseJSON = withObject "ApolloPayload" objectParser
     where
       objectParser o =
-        RequestPayload <$> o .:? "operationName" <*> o .:? "query"
+        RequestPayload
+          <$> o .:? "operationName"
+          <*> o .:? "query"
           <*> o .:? "variables"
 
 instance ToJSON a => ToJSON (ApolloSubscription a) where
diff --git a/src/Data/Morpheus/Subscriptions/Internal.hs b/src/Data/Morpheus/Subscriptions/Internal.hs
--- a/src/Data/Morpheus/Subscriptions/Internal.hs
+++ b/src/Data/Morpheus/Subscriptions/Internal.hs
@@ -32,6 +32,8 @@
     storedSessions,
     storedChannels,
     streamApp,
+    ApolloSubscription (..),
+    ApolloAction (..),
   )
 where
 
@@ -53,7 +55,9 @@
   ( empty,
   )
 import Data.Morpheus.Subscriptions.Apollo
-  ( acceptApolloRequest,
+  ( ApolloAction (..),
+    ApolloSubscription (..),
+    acceptApolloRequest,
   )
 import Data.Morpheus.Subscriptions.ClientConnectionStore
   ( ClientConnectionStore,
diff --git a/src/Data/Morpheus/Subscriptions/Stream.hs b/src/Data/Morpheus/Subscriptions/Stream.hs
--- a/src/Data/Morpheus/Subscriptions/Stream.hs
+++ b/src/Data/Morpheus/Subscriptions/Stream.hs
@@ -139,7 +139,7 @@
   Output SUB (Event ch con) m
 handleWSRequest gqlApp clientId = handle . apolloFormat
   where
-    --handle :: Applicative m => Validation ApolloAction -> Stream SUB e m
+    -- handle :: Applicative m => Validation ApolloAction -> Stream SUB e m
     handle = either (liftWS . Left) handleAction
     --------------------------------------------------
     -- handleAction :: ApolloAction -> Stream SUB e m