6190f1b · streamly · git.iko.soy

src/Streamly.hs+3−3

compare with master

unifiedsplit

@@ -51,9 +51,9 @@

51-- please see the "Streamly.Tutorial" module and the examples directory in this

52-- package.

53

54−{-# LANGUAGE CPP #-}

54+#if __GLASGOW_HASKELL__ >= 800

55−{-# LANGUAGE FlexibleContexts #-}

55+{-# OPTIONS_GHC -Wno-orphans #-}

56−{-# LANGUAGE MultiParamTypeClasses #-}

56+#endif

57

58#include "inline.hs"

59

src/Streamly/Data/Unfold.hs−7

@@ -1,10 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE PatternSynonyms #-}

5−{-# LANGUAGE RankNTypes #-}

6−{-# LANGUAGE ScopedTypeVariables #-}

7−

8#include "inline.hs"

1#include "inline.hs"

9

2

10-- |

3-- |

src/Streamly/Data/Unicode/Stream.hs−1

@@ -1,4 +1,3 @@

1−{-# LANGUAGE FlexibleContexts #-}

2-- |

1-- |

3-- Module : Streamly.Data.Unicode.Stream

2-- Module : Streamly.Data.Unicode.Stream

src/Streamly/FileSystem/FD.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3#include "inline.hs"

1#include "inline.hs"

4

2

5-- |

3-- |

src/Streamly/FileSystem/FDIO.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3−

4#include "inline.hs"

1#include "inline.hs"

5

2

6-- |

3-- |

src/Streamly/FileSystem/Handle.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3#include "inline.hs"

1#include "inline.hs"

4

2

5-- |

3-- |

src/Streamly/FileSystem/IOVec.hsc−5

@@ -1,8 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3−{-# LANGUAGE CApiFFI #-}

4−{-# LANGUAGE ScopedTypeVariables #-}

5−

6-- |

1-- |

7-- Module : Streamly.FileSystem.IOVec

2-- Module : Streamly.FileSystem.IOVec

src/Streamly/Internal/Control/Monad.hs−2

@@ -9,8 +9,6 @@

9--

10-- Additional "Control.Monad" utilities.

11

12−{-# LANGUAGE ScopedTypeVariables #-}

13−

14module Streamly.Internal.Control.Monad

12module Streamly.Internal.Control.Monad

15 ( discard

13 ( discard

16 )

14 )

src/Streamly/Internal/Data/Array.hs−4

@@ -1,9 +1,5 @@

1{-# OPTIONS_GHC -fno-warn-orphans #-}

2

3−{-# LANGUAGE CPP #-}

4−{-# LANGUAGE MagicHash #-}

5−{-# LANGUAGE UnboxedTuples #-}

6−

7#include "inline.hs"

3#include "inline.hs"

8

4

9-- |

5-- |

src/Streamly/Internal/Data/Atomics.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3-- |

1-- |

4-- Module : Streamly.Internal.Data.Atomics

2-- Module : Streamly.Internal.Data.Atomics

src/Streamly/Internal/Data/Fold.hs−7

@@ -1,10 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ExistentialQuantification #-}

4−{-# LANGUAGE FlexibleContexts #-}

5−{-# LANGUAGE RankNTypes #-}

6−{-# LANGUAGE ScopedTypeVariables #-}

7−

8-- |

1-- |

9-- Module : Streamly.Internal.Data.Fold

2-- Module : Streamly.Internal.Data.Fold

src/Streamly/Internal/Data/Fold/Types.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−

5-- |

1-- |

6-- Module : Streamly.Internal.Data.Fold.Types

2-- Module : Streamly.Internal.Data.Fold.Types

src/Streamly/Internal/Data/List.hs−8

@@ -1,11 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE DeriveTraversable #-}

3−{-# LANGUAGE GeneralizedNewtypeDeriving #-}

4−{-# LANGUAGE PatternSynonyms #-}

5−{-# LANGUAGE TypeFamilies #-}

6−{-# LANGUAGE UndecidableInstances #-} -- XXX

7−{-# LANGUAGE ViewPatterns #-}

8−

9-- |

1-- |

10-- Module : Streamly.Internal.Data.List

2-- Module : Streamly.Internal.Data.List

src/Streamly/Internal/Data/Pipe.hs−6

@@ -1,9 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE RankNTypes #-}

5−{-# LANGUAGE ScopedTypeVariables #-}

6−

7-- |

1-- |

8-- Module : Streamly.Internal.Data.Pipe

2-- Module : Streamly.Internal.Data.Pipe

src/Streamly/Internal/Data/Pipe/Types.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−

4#include "inline.hs"

1#include "inline.hs"

5

2

6-- |

3-- |

src/Streamly/Internal/Data/SVar.hs−14

@@ -1,17 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE KindSignatures #-}

3−{-# LANGUAGE ConstraintKinds #-}

4−{-# LANGUAGE ExistentialQuantification #-}

5−{-# LANGUAGE FlexibleContexts #-}

6−{-# LANGUAGE FlexibleInstances #-}

7−{-# LANGUAGE GeneralizedNewtypeDeriving #-}

8−{-# LANGUAGE LambdaCase #-}

9−{-# LANGUAGE MagicHash #-}

10−{-# LANGUAGE MultiParamTypeClasses #-}

11−{-# LANGUAGE RankNTypes #-}

12−{-# LANGUAGE ScopedTypeVariables #-}

13−{-# LANGUAGE UnboxedTuples #-}

14−

15-- |

1-- |

16-- Module : Streamly.Internal.Data.SVar

2-- Module : Streamly.Internal.Data.SVar

src/Streamly/Internal/Data/SmallArray.hs−4

@@ -9,10 +9,6 @@

9

10{-# OPTIONS_GHC -fno-warn-orphans #-}

11

12−{-# LANGUAGE CPP #-}

13−{-# LANGUAGE MagicHash #-}

14−{-# LANGUAGE UnboxedTuples #-}

15−

16#include "inline.hs"

12#include "inline.hs"

17

13

18module Streamly.Internal.Data.SmallArray

14module Streamly.Internal.Data.SmallArray

src/Streamly/Internal/Data/Stream/Ahead.hs−9

@@ -1,12 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ConstraintKinds #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE GeneralizedNewtypeDeriving#-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE UndecidableInstances #-} -- XXX

9−

10-- |

1-- |

11-- Module : Streamly.Internal.Data.Stream.Ahead

2-- Module : Streamly.Internal.Data.Stream.Ahead

src/Streamly/Internal/Data/Stream/Async.hs−13

@@ -1,16 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ConstraintKinds #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE GeneralizedNewtypeDeriving#-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE LambdaCase #-}

8−{-# LANGUAGE MultiParamTypeClasses #-}

9−{-# LANGUAGE ScopedTypeVariables #-}

10−{-# LANGUAGE UndecidableInstances #-} -- XXX

11−

12−#include "inline.hs"

13−

14-- |

1-- |

15-- Module : Streamly.Internal.Data.Stream.Async

2-- Module : Streamly.Internal.Data.Stream.Async

src/Streamly/Internal/Data/Stream/Combinators.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3#include "inline.hs"

1#include "inline.hs"

4

2

5-- |

3-- |

src/Streamly/Internal/Data/Stream/Enumeration.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3-- |

1-- |

4-- Module : Streamly.Internal.Data.Stream.Enumeration

2-- Module : Streamly.Internal.Data.Stream.Enumeration

src/Streamly/Internal/Data/Stream/Parallel.hs−9

@@ -1,12 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ConstraintKinds #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE GeneralizedNewtypeDeriving#-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE UndecidableInstances #-} -- XXX

9−

10#include "inline.hs"

1#include "inline.hs"

11

2

12-- |

3-- |

src/Streamly/Internal/Data/Stream/Prelude.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3#if __GLASGOW_HASKELL__ >= 800

1#if __GLASGOW_HASKELL__ >= 800

4{-# OPTIONS_GHC -Wno-orphans #-}

2{-# OPTIONS_GHC -Wno-orphans #-}

5#endif

3#endif

src/Streamly/Internal/Data/Stream/SVar.hs+7−6

@@ -1,6 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−

4#ifdef __HADDOCK_VERSION__

1#ifdef __HADDOCK_VERSION__

5#undef INSPECTION

2#undef INSPECTION

6#endif

3#endif

@@ -54,7 +51,7 @@ import Test.Inspection (inspect, hasNoTypeClassesExcept)

54

51

55-- | Pull a stream from an SVar.

52-- | Pull a stream from an SVar.

56{-# NOINLINE fromStreamVar #-}

53{-# NOINLINE fromStreamVar #-}

57−fromStreamVar :: MonadAsync m => SVar Stream m a -> Stream m a

54+fromStreamVar :: forall m a . MonadAsync m => SVar Stream m a -> Stream m a

58fromStreamVar sv = MkStream $ \st yld sng stp -> do

55fromStreamVar sv = MkStream $ \st yld sng stp -> do

59 list <- readOutputQ sv

56 list <- readOutputQ sv

60 -- Reversing the output is important to guarantee that we process the

57 -- Reversing the output is important to guarantee that we process the

@@ -63,7 +60,7 @@ fromStreamVar sv = MkStream $ \st yld sng stp -> do

63 foldStream st yld sng stp $ processEvents $ reverse list

60 foldStream st yld sng stp $ processEvents $ reverse list

64

61

65 where

62 where

66−

63+ allDone :: m r -> m r

67 allDone stp = do

64 allDone stp = do

68 when (svarInspectMode sv) $ do

65 when (svarInspectMode sv) $ do

69 t <- liftIO $ getTime Monotonic

66 t <- liftIO $ getTime Monotonic

@@ -72,6 +69,7 @@ fromStreamVar sv = MkStream $ \st yld sng stp -> do

72 stp

69 stp

73

70

74 {-# INLINE processEvents #-}

71 {-# INLINE processEvents #-}

72+ processEvents :: [ChildEvent a] -> Stream m a

75 processEvents [] = MkStream $ \st yld sng stp -> do

73 processEvents [] = MkStream $ \st yld sng stp -> do

76 done <- postProcess sv

74 done <- postProcess sv

77 if done

75 if done

@@ -95,6 +93,7 @@ fromStreamVar sv = MkStream $ \st yld sng stp -> do

95 Just ThreadAbort ->

93 Just ThreadAbort ->

96 foldStream st yld sng stp rest

94 foldStream st yld sng stp rest

97 Nothing -> liftIO (cleanupSVar sv) >> throwM ex

95 Nothing -> liftIO (cleanupSVar sv) >> throwM ex

96+

98 shouldStop tid =

97 shouldStop tid =

99 case svarStopStyle sv of

98 case svarStopStyle sv of

100 StopNone -> return False

99 StopNone -> return False

@@ -157,7 +156,7 @@ toSVar sv m = toStreamVar sv (toStream m)

157

156

158-- | Pull a stream from an SVar.

157-- | Pull a stream from an SVar.

159{-# NOINLINE fromProducer #-}

158{-# NOINLINE fromProducer #-}

160−fromProducer :: MonadAsync m => SVar Stream m a -> Stream m a

159+fromProducer :: forall m a . MonadAsync m => SVar Stream m a -> Stream m a

161fromProducer sv = mkStream $ \st yld sng stp -> do

160fromProducer sv = mkStream $ \st yld sng stp -> do

162 list <- readOutputQ sv

161 list <- readOutputQ sv

163 -- Reversing the output is important to guarantee that we process the

162 -- Reversing the output is important to guarantee that we process the

@@ -167,6 +166,7 @@ fromProducer sv = mkStream $ \st yld sng stp -> do

167

166

168 where

167 where

169

168

169+ allDone :: m r -> m r

170 allDone stp = do

171 when (svarInspectMode sv) $ do

172 t <- liftIO $ getTime Monotonic

@@ -176,6 +176,7 @@ fromProducer sv = mkStream $ \st yld sng stp -> do

176 stp

177

178 {-# INLINE processEvents #-}

179+ processEvents :: [ChildEvent a] -> Stream m a

179 processEvents [] = mkStream $ \st yld sng stp -> do

180 processEvents [] = mkStream $ \st yld sng stp -> do

180 foldStream st yld sng stp $ fromProducer sv

181 foldStream st yld sng stp $ fromProducer sv

181

182

src/Streamly/Internal/Data/Stream/Serial.hs−10

@@ -1,13 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ConstraintKinds #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE GeneralizedNewtypeDeriving#-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE UndecidableInstances #-} -- XXX

10−

11-- |

1-- |

12-- Module : Streamly.Internal.Data.Stream.Serial

2-- Module : Streamly.Internal.Data.Stream.Serial

src/Streamly/Internal/Data/Stream/StreamD.hs−18

@@ -1,21 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ConstraintKinds #-}

4−{-# LANGUAGE ExistentialQuantification #-}

5−{-# LANGUAGE FlexibleContexts #-}

6−{-# LANGUAGE FlexibleInstances #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE PatternSynonyms #-}

9−{-# LANGUAGE RecordWildCards #-}

10−{-# LANGUAGE ScopedTypeVariables #-}

11−{-# LANGUAGE ViewPatterns #-}

12−{-# LANGUAGE RankNTypes #-}

13−{-# LANGUAGE MagicHash #-}

14−

15−#if __GLASGOW_HASKELL__ >= 801

16−{-# LANGUAGE TypeApplications #-}

17−#endif

18−

19#include "inline.hs"

1#include "inline.hs"

20

2

21-- |

3-- |

src/Streamly/Internal/Data/Stream/StreamD/Type.hs−11

@@ -1,14 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ConstraintKinds #-}

4−{-# LANGUAGE ExistentialQuantification #-}

5−{-# LANGUAGE FlexibleContexts #-}

6−{-# LANGUAGE FlexibleInstances #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE PatternSynonyms #-}

9−{-# LANGUAGE ViewPatterns #-}

10−{-# LANGUAGE RankNTypes #-}

11−

12#include "inline.hs"

1#include "inline.hs"

13

2

14-- |

3-- |

src/Streamly/Internal/Data/Stream/StreamDK.hs−9

@@ -1,12 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ExistentialQuantification #-}

4−{-# LANGUAGE FlexibleContexts #-}

5−{-# LANGUAGE PatternSynonyms #-}

6−{-# LANGUAGE RankNTypes #-}

7−{-# LANGUAGE RecordWildCards #-}

8−-- {-# LANGUAGE ScopedTypeVariables #-}

9−

10#include "inline.hs"

1#include "inline.hs"

11

2

12-- |

3-- |

src/Streamly/Internal/Data/Stream/StreamDK/Type.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−

5-- |

1-- |

6-- Module : Streamly.StreamDK.Type

2-- Module : Streamly.StreamDK.Type

src/Streamly/Internal/Data/Stream/StreamK.hs−11

@@ -1,14 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ConstraintKinds #-}

4−{-# LANGUAGE FlexibleContexts #-}

5−{-# LANGUAGE FlexibleInstances #-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE RankNTypes #-}

9−{-# LANGUAGE ScopedTypeVariables #-}

10−{-# LANGUAGE UndecidableInstances #-} -- XXX

11−

12#include "inline.hs"

1#include "inline.hs"

13

2

14-- |

3-- |

src/Streamly/Internal/Data/Stream/StreamK/Type.hs−16

@@ -1,19 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ConstraintKinds #-}

4−{-# LANGUAGE FlexibleContexts #-}

5−{-# LANGUAGE FlexibleInstances #-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE PatternSynonyms #-}

9−{-# LANGUAGE KindSignatures #-}

10−{-# LANGUAGE ViewPatterns #-}

11−#if __GLASGOW_HASKELL__ >= 806

12−{-# LANGUAGE QuantifiedConstraints #-}

13−#endif

14−{-# LANGUAGE RankNTypes #-}

15−{-# LANGUAGE UndecidableInstances #-} -- XXX

16−

17#include "inline.hs"

1#include "inline.hs"

18

2

19-- |

3-- |

src/Streamly/Internal/Data/Stream/Zip.hs−10

@@ -1,13 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ConstraintKinds #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE GeneralizedNewtypeDeriving#-}

6−{-# LANGUAGE InstanceSigs #-}

7−{-# LANGUAGE MultiParamTypeClasses #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE UndecidableInstances #-} -- XXX

10−

11-- |

1-- |

12-- Module : Streamly.Internal.Data.Stream.Zip

2-- Module : Streamly.Internal.Data.Stream.Zip

src/Streamly/Internal/Data/Time/Clock.hsc−5

@@ -1,8 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE DeriveGeneric #-}

3−{-# LANGUAGE GeneralizedNewtypeDeriving #-}

4−{-# LANGUAGE ScopedTypeVariables #-}

5−

6#if __GLASGOW_HASKELL__ >= 800

1#if __GLASGOW_HASKELL__ >= 800

7{-# OPTIONS_GHC -Wno-identities #-}

2{-# OPTIONS_GHC -Wno-identities #-}

8{-# OPTIONS_GHC -fno-warn-unused-imports #-}

3{-# OPTIONS_GHC -fno-warn-unused-imports #-}

src/Streamly/Internal/Data/Time/Units.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE GeneralizedNewtypeDeriving #-}

3−{-# LANGUAGE ScopedTypeVariables #-}

4−

5#include "inline.hs"

1#include "inline.hs"

6

2

7-- |

3-- |

src/Streamly/Internal/Data/Unfold.hs−10

@@ -1,13 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ExistentialQuantification #-}

4−{-# LANGUAGE FlexibleContexts #-}

5−{-# LANGUAGE PatternSynonyms #-}

6−{-# LANGUAGE RankNTypes #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE ScopedTypeVariables #-}

9−{-# LANGUAGE TupleSections #-}

10−

11#include "inline.hs"

1#include "inline.hs"

12

2

13-- |

3-- |

src/Streamly/Internal/Data/Unfold/Types.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−

5-- |

1-- |

6-- Module : Streamly.Internal.Data.Unfold.Types

2-- Module : Streamly.Internal.Data.Unfold.Types

src/Streamly/Internal/Data/Unicode/Char.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE FlexibleContexts #-}

2−

3-- |

1-- |

4-- Module : Streamly.Data.Internal.Unicode.Char

2-- Module : Streamly.Data.Internal.Unicode.Char

src/Streamly/Internal/Data/Unicode/Stream.hs−7

@@ -1,10 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−{-# LANGUAGE PatternSynonyms #-}

5−{-# LANGUAGE RankNTypes #-}

6−{-# LANGUAGE RecordWildCards #-}

7−

8-- |

1-- |

9-- Module : Streamly.Data.Internal.Unicode.Stream

2-- Module : Streamly.Data.Internal.Unicode.Stream

src/Streamly/Internal/FileSystem/Dir.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−

3#include "inline.hs"

1#include "inline.hs"

4

2

5-- |

3-- |

src/Streamly/Internal/FileSystem/File.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−

4#include "inline.hs"

1#include "inline.hs"

5

2

6-- |

3-- |

src/Streamly/Internal/FileSystem/Handle.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE RecordWildCards #-}

4−

5#include "inline.hs"

1#include "inline.hs"

6

2

7-- |

3-- |

src/Streamly/Internal/Memory/Array.hs−6

@@ -1,9 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE MagicHash #-}

4−{-# LANGUAGE UnboxedTuples #-}

5−{-# LANGUAGE ScopedTypeVariables #-}

6−

7#include "inline.hs"

1#include "inline.hs"

8

2

9-- |

3-- |

src/Streamly/Internal/Memory/Array/Types.hs−9

@@ -1,12 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3−{-# LANGUAGE ExistentialQuantification #-}

4−{-# LANGUAGE MagicHash #-}

5−{-# LANGUAGE RecordWildCards #-}

6−{-# LANGUAGE ScopedTypeVariables #-}

7−{-# LANGUAGE TypeFamilies #-}

8−{-# LANGUAGE UnboxedTuples #-}

9−{-# LANGUAGE FlexibleContexts #-}

10#include "inline.hs"

1#include "inline.hs"

11

2

12-- |

3-- |

src/Streamly/Internal/Memory/ArrayStream.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE RecordWildCards #-}

3−{-# LANGUAGE ScopedTypeVariables #-}

4−

5#include "inline.hs"

1#include "inline.hs"

6

2

7-- |

3-- |

src/Streamly/Internal/Memory/Unicode/Array.hs−2

@@ -1,5 +1,3 @@

1−{-# LANGUAGE FlexibleContexts #-}

2−

3-- |

1-- |

4-- Module : Streamly.Memory.Internal.Unicode.Array

2-- Module : Streamly.Memory.Internal.Unicode.Array

src/Streamly/Internal/Mutable/Prim/Var.hs−7

@@ -1,10 +1,3 @@

1−{-# LANGUAGE ConstraintKinds #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE ExistentialQuantification #-}

4−{-# LANGUAGE MagicHash #-}

5−{-# LANGUAGE UnboxedTuples #-}

6−{-# LANGUAGE ScopedTypeVariables #-}

7−

8#include "inline.hs"

1#include "inline.hs"

9

2

10-- |

3-- |

src/Streamly/Internal/Network/Inet/TCP.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−

4#include "inline.hs"

1#include "inline.hs"

5

2

6-- |

3-- |

src/Streamly/Internal/Network/Socket.hs−4

@@ -1,7 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE RecordWildCards #-}

4−

5#include "inline.hs"

1#include "inline.hs"

6

2

7-- |

3-- |

src/Streamly/Internal/Prelude.hs−7

@@ -1,10 +1,3 @@

1−{-# LANGUAGE BangPatterns #-}

2−{-# LANGUAGE CPP #-}

3−{-# LANGUAGE RankNTypes #-}

4−{-# LANGUAGE RecordWildCards #-}

5−{-# LANGUAGE KindSignatures #-}

6−{-# LANGUAGE FlexibleContexts #-}

7−

8#if __GLASGOW_HASKELL__ >= 800

1#if __GLASGOW_HASKELL__ >= 800

9{-# OPTIONS_GHC -Wno-orphans #-}

2{-# OPTIONS_GHC -Wno-orphans #-}

10#endif

3#endif

src/Streamly/Memory/Array.hs−3

@@ -1,6 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ScopedTypeVariables #-}

3−

4#include "inline.hs"

1#include "inline.hs"

5

2

6-- |

3-- |

src/Streamly/Memory/Malloc.hs−6

@@ -1,9 +1,3 @@

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE ScopedTypeVariables #-}

4−{-# LANGUAGE TypeFamilies #-}

5−{-# LANGUAGE FlexibleContexts #-}

6−

7#include "inline.hs"

1#include "inline.hs"

8

2

9-- |

3-- |

src/Streamly/Memory/Ring.hs−5

@@ -1,8 +1,3 @@

1−{-# LANGUAGE ScopedTypeVariables #-}

2−{-# LANGUAGE RecordWildCards #-}

3−{-# LANGUAGE BangPatterns #-}

4−{-# LANGUAGE ExistentialQuantification #-}

5−

6-- |

1-- |

7-- Module : Streamly.Memory.Ring

2-- Module : Streamly.Memory.Ring

src/Streamly/Prelude.hs+3−3

@@ -1,6 +1,6 @@

1−{-# LANGUAGE CPP #-}

1+#if __GLASGOW_HASKELL__ >= 800

2−{-# LANGUAGE RankNTypes #-}

2+{-# OPTIONS_GHC -Wno-orphans #-}

3−{-# LANGUAGE FlexibleContexts #-}

3+#endif

4

5#include "inline.hs"

6

streamly.cabal+30

@@ -289,6 +289,36 @@ common exe-options

289

290library

291 import: lib-options

292+ default-extensions:

293+ BangPatterns

294+ CApiFFI

295+ CPP

296+ ConstraintKinds

297+ DeriveGeneric

298+ DeriveTraversable

299+ ExistentialQuantification

300+ FlexibleContexts

301+ FlexibleInstances

302+ GeneralizedNewtypeDeriving

303+ InstanceSigs

304+ KindSignatures

305+ LambdaCase

306+ MagicHash

307+ MultiParamTypeClasses

308+ PatternSynonyms

309+ RankNTypes

310+ RecordWildCards

311+ ScopedTypeVariables

312+ TupleSections

313+ TypeFamilies

314+ UnboxedTuples

315+ UndecidableInstances

316+ ViewPatterns

317+ if impl(ghc >= 8.1)

318+ default-extensions: TypeApplications

319+ if impl(ghc >= 8.6)

320+ default-extensions: QuantifiedConstraints

321+

292 js-sources: jsbits/clock.js

322 js-sources: jsbits/clock.js

293 include-dirs: src/Streamly/Internal/Data/Time

323 include-dirs: src/Streamly/Internal/Data/Time

294 , src

324 , src