Move streaming data into its own file

This commit is contained in:
2022-06-29 08:05:20 +01:00
parent b1a7e1bf35
commit 5501d6f9b5
12 changed files with 25 additions and 38 deletions
+2 -2
View File
@@ -1,15 +1,15 @@
module StreamingHelp
( minStreamOn
, sortStreamOn
, StreamOf
, module Streaming
, module StreamingHelp.Data
) where
import Streaming
import StreamingHelp.Data
import qualified Streaming.Prelude as S
import qualified Control.Foldl as L
import Data.Function (on)
type StreamOf a = Stream (Of a) Identity ()
minStreamOn :: Ord a => (b -> a) -> StreamOf b -> Maybe b
{-# INLINE minStreamOn #-}