From d9812043bb5554aa93af33753cf3b1802e3c6b79 Mon Sep 17 00:00:00 2001
From: Ranjeet Kumar Ranjan <ranjeetr@composewell.com>
Date: Tue, 4 Oct 2022 14:32:04 +0530
Subject: [PATCH] Fix up

---
 src/Streamly/Internal/Data/Stream/Async/Channel/Operations.hs | 2 +-
 src/Streamly/Internal/Data/Stream/SVar/Generate.hs            | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Streamly/Internal/Data/Stream/Async/Channel/Operations.hs b/src/Streamly/Internal/Data/Stream/Async/Channel/Operations.hs
index 63c09ddf3..34900a0f3 100644
--- a/src/Streamly/Internal/Data/Stream/Async/Channel/Operations.hs
+++ b/src/Streamly/Internal/Data/Stream/Async/Channel/Operations.hs
@@ -167,9 +167,9 @@ fromChannelRaw sv = K.MkStream $ \st yld sng stp -> do
 inspect $ hasNoTypeClassesExcept 'fromChannelRaw
     [ ''Monad
     , ''Applicative
+    , ''MonadThrow
     , ''Exception
     , ''MonadIO
-    , ''MonadThrow
 #if __GLASGOW_HASKELL__ < 810
     , ''MonadBaseControl
 #endif
diff --git a/src/Streamly/Internal/Data/Stream/SVar/Generate.hs b/src/Streamly/Internal/Data/Stream/SVar/Generate.hs
index ed9e41a71..23aafddcf 100644
--- a/src/Streamly/Internal/Data/Stream/SVar/Generate.hs
+++ b/src/Streamly/Internal/Data/Stream/SVar/Generate.hs
@@ -170,9 +170,9 @@ fromStreamVar sv = K.MkStream $ \st yld sng stp -> do
 inspect $ hasNoTypeClassesExcept 'fromStreamVar
     [ ''Monad
     , ''Applicative
+    , ''MonadThrow
     , ''Exception
     , ''MonadIO
-    , ''MonadThrow
     , ''MonadBaseControl
     , ''Typeable
     , ''Functor