6190f1b · streamly · git.iko.soy

git.iko.soy/streamly

Use default-extensions inplace of extensions on each file.

commit6190f1bd02a502710a7bbcf7578e80819b63dcac authorPranay Sashank <pranaysashank@composewell.com> dateFri 26 Jun 2020, 20:50 (6 years ago) parent48b2f08

54 files changed+43−309

compare with master

unifiedsplit

src/Streamly.hs+3−3

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

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

5252-- package.

5353

54−{-# LANGUAGE CPP #-}

55−{-# LANGUAGE FlexibleContexts #-}

56−{-# LANGUAGE MultiParamTypeClasses #-}

54+#if __GLASGOW_HASKELL__ >= 800

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

56+#endif

5757

5858#include "inline.hs"

5959

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−

81#include "inline.hs"

103-- |

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

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

1−{-# LANGUAGE FlexibleContexts #-}

21-- |

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

src/Streamly/FileSystem/FD.hs−2

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

1−{-# LANGUAGE CPP #-}

2−

31#include "inline.hs"

53-- |

src/Streamly/FileSystem/FDIO.hs−3

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3−

41#include "inline.hs"

63-- |

src/Streamly/FileSystem/Handle.hs−2

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

1−{-# LANGUAGE CPP #-}

2−

31#include "inline.hs"

53-- |

src/Streamly/FileSystem/IOVec.hsc−5

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE BangPatterns #-}

3−{-# LANGUAGE CApiFFI #-}

4−{-# LANGUAGE ScopedTypeVariables #-}

5−

61-- |

72-- Module : Streamly.FileSystem.IOVec

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

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

99--

1010-- Additional "Control.Monad" utilities.

1111

12−{-# LANGUAGE ScopedTypeVariables #-}

13−

1412module Streamly.Internal.Control.Monad

1513 ( discard

1614 )

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

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

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

3−{-# LANGUAGE CPP #-}

4−{-# LANGUAGE MagicHash #-}

5−{-# LANGUAGE UnboxedTuples #-}

6−

73#include "inline.hs"

95-- |

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

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

1−{-# LANGUAGE CPP #-}

2−

31-- |

42-- 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−

81-- |

92-- 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−

51-- |

62-- 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−

91-- |

102-- 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−

71-- |

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

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−

41#include "inline.hs"

63-- |

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−

151-- |

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

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

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

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

1111

12−{-# LANGUAGE CPP #-}

13−{-# LANGUAGE MagicHash #-}

14−{-# LANGUAGE UnboxedTuples #-}

15−

1612#include "inline.hs"

1713

1814module 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−

101-- |

112-- 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−

141-- |

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

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

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

1−{-# LANGUAGE CPP #-}

2−

31#include "inline.hs"

53-- |

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

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

1−{-# LANGUAGE CPP #-}

2−

31-- |

42-- 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−

101#include "inline.hs"

112

123-- |

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

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

1−{-# LANGUAGE CPP #-}

2−

31#if __GLASGOW_HASKELL__ >= 800

42{-# OPTIONS_GHC -Wno-orphans #-}

53#endif

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−

41#ifdef __HADDOCK_VERSION__

52#undef INSPECTION

63#endif

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

5451

5552-- | Pull a stream from an SVar.

5653{-# 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

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

5956 list <- readOutputQ sv

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

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

6360 foldStream st yld sng stp $ processEvents $ reverse list

6461

6562 where

66−

63+ allDone :: m r -> m r

6764 allDone stp = do

6865 when (svarInspectMode sv) $ do

6966 t <- liftIO $ getTime Monotonic

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

7269 stp

7370

7471 {-# INLINE processEvents #-}

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

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

7674 done <- postProcess sv

7775 if done

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

9593 Just ThreadAbort ->

9694 foldStream st yld sng stp rest

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

96+

9897 shouldStop tid =

9998 case svarStopStyle sv of

10099 StopNone -> return False

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

157156

158157-- | Pull a stream from an SVar.

159158{-# 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

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

162161 list <- readOutputQ sv

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

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

167166

168167 where

169168

169+ allDone :: m r -> m r

170170 allDone stp = do

171171 when (svarInspectMode sv) $ do

172172 t <- liftIO $ getTime Monotonic

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

176176 stp

177177

178178 {-# INLINE processEvents #-}

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

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

180181 foldStream st yld sng stp $ fromProducer sv

181182

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−

111-- |

122-- 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−

191#include "inline.hs"

202

213-- |

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−

121#include "inline.hs"

132

143-- |

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−

101#include "inline.hs"

112

123-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−

51-- |

62-- 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−

121#include "inline.hs"

132

143-- |

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−

171#include "inline.hs"

182

193-- |

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−

111-- |

122-- 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−

61#if __GLASGOW_HASKELL__ >= 800

72{-# OPTIONS_GHC -Wno-identities #-}

83{-# 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−

51#include "inline.hs"

73-- |

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−

111#include "inline.hs"

122

133-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ExistentialQuantification #-}

3−{-# LANGUAGE FlexibleContexts #-}

4−

51-- |

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

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

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

1−{-# LANGUAGE FlexibleContexts #-}

2−

31-- |

42-- 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−

81-- |

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

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

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

1−{-# LANGUAGE CPP #-}

2−

31#include "inline.hs"

53-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−

41#include "inline.hs"

63-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE RecordWildCards #-}

4−

51#include "inline.hs"

73-- |

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−

71#include "inline.hs"

93-- |

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 #-}

101#include "inline.hs"

112

123-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE RecordWildCards #-}

3−{-# LANGUAGE ScopedTypeVariables #-}

4−

51#include "inline.hs"

73-- |

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

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

1−{-# LANGUAGE FlexibleContexts #-}

2−

31-- |

42-- 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−

81#include "inline.hs"

103-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−

41#include "inline.hs"

63-- |

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

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE FlexibleContexts #-}

3−{-# LANGUAGE RecordWildCards #-}

4−

51#include "inline.hs"

73-- |

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−

81#if __GLASGOW_HASKELL__ >= 800

92{-# OPTIONS_GHC -Wno-orphans #-}

103#endif

src/Streamly/Memory/Array.hs−3

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE ScopedTypeVariables #-}

3−

41#include "inline.hs"

63-- |

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−

71#include "inline.hs"

93-- |

src/Streamly/Memory/Ring.hs−5

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

1−{-# LANGUAGE ScopedTypeVariables #-}

2−{-# LANGUAGE RecordWildCards #-}

3−{-# LANGUAGE BangPatterns #-}

4−{-# LANGUAGE ExistentialQuantification #-}

5−

61-- |

72-- Module : Streamly.Memory.Ring

src/Streamly/Prelude.hs+3−3

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

1−{-# LANGUAGE CPP #-}

2−{-# LANGUAGE RankNTypes #-}

3−{-# LANGUAGE FlexibleContexts #-}

1+#if __GLASGOW_HASKELL__ >= 800

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

3+#endif

55#include "inline.hs"

streamly.cabal+30

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

289289

290290library

291291 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+

292322 js-sources: jsbits/clock.js

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

294324 , src