Fix after rebase

Author: rnjtranjan

src/Streamly/Internal/Data/Stream/StreamD/Nesting.hs

@@ -489,6 +489,25 @@ mergeBy cmp = mergeByM (\a b -> return $ cmp a b)
 -- Intersection of sorted streams
 -------------------------------------------------------------------------------
 
+data StreamEmptyNess =
+      LeftEmpty
+    | RightEmpty
+    | BothEmpty
+    | NoneEmpty
+        deriving (Eq, Show)
+
+data RunOrder =
+      LeftRun
+    | RightRun
+    | CompareRun
+    | CompareDupRun
+    | FastFarwardRun
+    | RightDupRun
+    | BuffPrepare
+    | BuffPair
+    | BuffReset
+        deriving (Eq, Show)
+
 -- Assuming the streams are sorted in ascending order
 {-# INLINE_NORMAL intersectBySorted #-}
 intersectBySorted :: Monad m

streamly.cabal

@@ -102,6 +102,7 @@ extra-source-files:
     test/Streamly/Test/Data/Array/Foreign.hs
     test/Streamly/Test/Data/Array/Stream/Foreign.hs
     test/Streamly/Test/Data/Parser/ParserD.hs
+    test/Streamly/Test/Data/Stream/Top.hs
     test/Streamly/Test/FileSystem/Event.hs
     test/Streamly/Test/FileSystem/Event/Common.hs
     test/Streamly/Test/FileSystem/Event/Darwin.hs

test/Streamly/Test/Data/Stream/Top.hs

@@ -43,7 +43,7 @@ intersectBySorted =
                         compare
                         (S.fromList ls0)
                         (S.fromList ls1)
-                let v2 = intersect ls0 ls1
+                let v2 = ls0 `intersect` ls1
                 assert (v1 == sort v2)
 
 unionBySorted :: Property