diff --git a/benchmark/lib/Streamly/Benchmark/Prelude.hs b/benchmark/lib/Streamly/Benchmark/Prelude.hs index 3982b8825..0d003a2d0 100644 --- a/benchmark/lib/Streamly/Benchmark/Prelude.hs +++ b/benchmark/lib/Streamly/Benchmark/Prelude.hs @@ -10,7 +10,59 @@ {-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE RankNTypes #-} -module Streamly.Benchmark.Prelude where +module Streamly.Benchmark.Prelude + ( absTimes + , apDiscardFst + , apDiscardSnd + , apLiftA2 + , benchIO + , benchIOSink + , benchIOSrc + , breakAfterSome + , composeN + , concatFoldableWith + , concatForFoldableWith + , concatPairsWith + , concatStreamsWith + , filterAllInM + , filterAllOutM + , filterSome + , fmapN + , mapM + , mapN + , mkAsync + , monadThen + , runToList + , sourceConcatMapId + , sourceFoldMapM + , sourceFoldMapWith + , sourceFoldMapWithM + , sourceFoldMapWithStream + , sourceFracFromThenTo + , sourceFracFromTo + , sourceFromFoldable + , sourceFromFoldableM + , sourceFromList + , sourceFromListM + , sourceIntegerFromStep + , sourceIntFromThenTo + , sourceIntFromTo + , sourceUnfoldr + , sourceUnfoldrAction + , sourceUnfoldrM + , sourceUnfoldrMSerial + , toListM + , toListSome + , toNull + , toNullAp + , toNullM + , toNullM3 + , transformComposeMapM + , transformMapM + , transformTeeMapM + , transformZipMapM + ) +where import Control.Applicative (liftA2) import Control.DeepSeq (NFData(..)) @@ -20,6 +72,7 @@ import Data.Functor.Identity (Identity) import Data.Semigroup (Semigroup((<>))) #endif import GHC.Exception (ErrorCall) +import Prelude hiding (mapM) import System.Random (randomRIO) import qualified Data.Foldable as F diff --git a/benchmark/streamly-benchmarks.cabal b/benchmark/streamly-benchmarks.cabal index 7a1126f69..14135ef2e 100644 --- a/benchmark/streamly-benchmarks.cabal +++ b/benchmark/streamly-benchmarks.cabal @@ -84,6 +84,7 @@ common compile-options -Wredundant-constraints -Wnoncanonical-monad-instances -Rghc-timing + -Wmissing-export-lists if flag(has-llvm) ghc-options: -fllvm diff --git a/src/Streamly/Internal/Unicode/Char/Parser.hs b/src/Streamly/Internal/Unicode/Char/Parser.hs index a91793ee9..ba5c3d7bb 100644 --- a/src/Streamly/Internal/Unicode/Char/Parser.hs +++ b/src/Streamly/Internal/Unicode/Char/Parser.hs @@ -11,12 +11,39 @@ -- Unicode Char stream and then use these parsers on the Char stream. -- XXX Add explicit export list. -module Streamly.Internal.Unicode.Char.Parser where +module Streamly.Internal.Unicode.Char.Parser + ( alpha + , alphaNum + , ascii + , asciiLower + , asciiUpper + , char + , decimal + , digit + , double + , hexadecimal + , hexDigit + , latin1 + , letter + , lower + , mark + , number + , octDigit + , print + , punctuation + , separator + , signed + , space + , symbol + , upper + ) +where import Control.Applicative (Alternative(..)) import Control.Monad.Catch (MonadCatch) import Data.Bits (Bits, (.|.), shiftL) import Data.Char (ord) +import Prelude hiding (print) import Streamly.Internal.Data.Parser (Parser) import qualified Data.Char as Char diff --git a/streamly.cabal b/streamly.cabal index df2db47e6..ec4305e4e 100644 --- a/streamly.cabal +++ b/streamly.cabal @@ -251,6 +251,7 @@ common compile-options -Wincomplete-uni-patterns -Wredundant-constraints -Wnoncanonical-monad-instances + -Wmissing-export-lists -Rghc-timing if flag(has-llvm) diff --git a/test/Streamly/Test/Data/Array.hs b/test/Streamly/Test/Data/Array.hs index 4444a7294..893dbbdf6 100644 --- a/test/Streamly/Test/Data/Array.hs +++ b/test/Streamly/Test/Data/Array.hs @@ -6,7 +6,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Data.Array where +module Streamly.Test.Data.Array (main) where #include "Streamly/Test/Data/Array/CommonImports.hs" diff --git a/test/Streamly/Test/Data/Array/Prim.hs b/test/Streamly/Test/Data/Array/Prim.hs index baa4c1a22..9a930d6e1 100644 --- a/test/Streamly/Test/Data/Array/Prim.hs +++ b/test/Streamly/Test/Data/Array/Prim.hs @@ -6,7 +6,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Data.Array.Prim where +module Streamly.Test.Data.Array.Prim (main) where #include "Streamly/Test/Data/Array/CommonImports.hs" diff --git a/test/Streamly/Test/Data/Array/Prim/Pinned.hs b/test/Streamly/Test/Data/Array/Prim/Pinned.hs index 64fd28449..4a5a5e270 100644 --- a/test/Streamly/Test/Data/Array/Prim/Pinned.hs +++ b/test/Streamly/Test/Data/Array/Prim/Pinned.hs @@ -6,7 +6,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Data.Array.Prim.Pinned where +module Streamly.Test.Data.Array.Prim.Pinned (main) where #include "Streamly/Test/Data/Array/CommonImports.hs" diff --git a/test/Streamly/Test/Data/SmallArray.hs b/test/Streamly/Test/Data/SmallArray.hs index 92f9d8845..378bdcc0e 100644 --- a/test/Streamly/Test/Data/SmallArray.hs +++ b/test/Streamly/Test/Data/SmallArray.hs @@ -6,7 +6,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Data.SmallArray where +module Streamly.Test.Data.SmallArray (main) where #include "Streamly/Test/Data/Array/CommonImports.hs" diff --git a/test/Streamly/Test/Prelude/Ahead.hs b/test/Streamly/Test/Prelude/Ahead.hs index da64a77ec..a3de5c15e 100644 --- a/test/Streamly/Test/Prelude/Ahead.hs +++ b/test/Streamly/Test/Prelude/Ahead.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.Ahead where +module Streamly.Test.Prelude.Ahead (main) where #if __GLASGOW_HASKELL__ < 808 import Data.Semigroup ((<>)) diff --git a/test/Streamly/Test/Prelude/Async.hs b/test/Streamly/Test/Prelude/Async.hs index 8abfa61b2..43081793f 100644 --- a/test/Streamly/Test/Prelude/Async.hs +++ b/test/Streamly/Test/Prelude/Async.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.Async where +module Streamly.Test.Prelude.Async (main) where import Control.Concurrent (threadDelay) import Data.List (sort) diff --git a/test/Streamly/Test/Prelude/Concurrent.hs b/test/Streamly/Test/Prelude/Concurrent.hs index 9bf4f5675..01fee0d9b 100644 --- a/test/Streamly/Test/Prelude/Concurrent.hs +++ b/test/Streamly/Test/Prelude/Concurrent.hs @@ -9,7 +9,7 @@ {-# LANGUAGE OverloadedLists #-} -module Streamly.Test.Prelude.Concurrent where +module Streamly.Test.Prelude.Concurrent (main) where import Control.Concurrent (MVar, takeMVar, threadDelay, putMVar, newEmptyMVar) import Control.Exception diff --git a/test/Streamly/Test/Prelude/Fold.hs b/test/Streamly/Test/Prelude/Fold.hs index 3278ad603..68b1195f9 100644 --- a/test/Streamly/Test/Prelude/Fold.hs +++ b/test/Streamly/Test/Prelude/Fold.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.Fold where +module Streamly.Test.Prelude.Fold (main) where #ifdef DEVBUILD import Control.Concurrent (threadDelay) diff --git a/test/Streamly/Test/Prelude/Parallel.hs b/test/Streamly/Test/Prelude/Parallel.hs index e3fc5860a..f0e2a3317 100644 --- a/test/Streamly/Test/Prelude/Parallel.hs +++ b/test/Streamly/Test/Prelude/Parallel.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.Parallel where +module Streamly.Test.Prelude.Parallel (main) where import Data.List (sort) #if !(MIN_VERSION_base(4,11,0)) diff --git a/test/Streamly/Test/Prelude/Rate.hs b/test/Streamly/Test/Prelude/Rate.hs index e6d1ffc55..b09d16ff6 100644 --- a/test/Streamly/Test/Prelude/Rate.hs +++ b/test/Streamly/Test/Prelude/Rate.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.Rate where +module Streamly.Test.Prelude.Rate (main) where import qualified Streamly.Prelude as S diff --git a/test/Streamly/Test/Prelude/Serial.hs b/test/Streamly/Test/Prelude/Serial.hs index b46660351..3309c713f 100644 --- a/test/Streamly/Test/Prelude/Serial.hs +++ b/test/Streamly/Test/Prelude/Serial.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.Serial where +module Streamly.Test.Prelude.Serial (checkTakeDropTime, main) where import Control.Concurrent ( threadDelay ) import Control.Monad ( when, forM_ ) diff --git a/test/Streamly/Test/Prelude/WAsync.hs b/test/Streamly/Test/Prelude/WAsync.hs index 34683a98c..0fb2ca541 100644 --- a/test/Streamly/Test/Prelude/WAsync.hs +++ b/test/Streamly/Test/Prelude/WAsync.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.WAsync where +module Streamly.Test.Prelude.WAsync (main) where #ifdef DEVBUILD import Control.Concurrent ( threadDelay ) diff --git a/test/Streamly/Test/Prelude/WSerial.hs b/test/Streamly/Test/Prelude/WSerial.hs index 5cf5d0090..1f2da3d97 100644 --- a/test/Streamly/Test/Prelude/WSerial.hs +++ b/test/Streamly/Test/Prelude/WSerial.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.WSerial where +module Streamly.Test.Prelude.WSerial (main) where import Data.List (sort) #if __GLASGOW_HASKELL__ < 808 diff --git a/test/Streamly/Test/Prelude/ZipAsync.hs b/test/Streamly/Test/Prelude/ZipAsync.hs index 153227678..954b7e3ca 100644 --- a/test/Streamly/Test/Prelude/ZipAsync.hs +++ b/test/Streamly/Test/Prelude/ZipAsync.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.ZipAsync where +module Streamly.Test.Prelude.ZipAsync (main) where import Test.Hspec.QuickCheck import Test.Hspec as H diff --git a/test/Streamly/Test/Prelude/ZipSerial.hs b/test/Streamly/Test/Prelude/ZipSerial.hs index a25c6bfb7..e7273dac2 100644 --- a/test/Streamly/Test/Prelude/ZipSerial.hs +++ b/test/Streamly/Test/Prelude/ZipSerial.hs @@ -7,7 +7,7 @@ -- Stability : experimental -- Portability : GHC -module Streamly.Test.Prelude.ZipSerial where +module Streamly.Test.Prelude.ZipSerial (main) where #if __GLASGOW_HASKELL__ < 808 import Data.Semigroup ((<>)) diff --git a/test/streamly-tests.cabal b/test/streamly-tests.cabal index 9df947cd1..9f060b6e8 100644 --- a/test/streamly-tests.cabal +++ b/test/streamly-tests.cabal @@ -67,6 +67,7 @@ common compile-options -Wincomplete-uni-patterns -Wredundant-constraints -Wnoncanonical-monad-instances + -Wmissing-export-lists -Rghc-timing if flag(has-llvm)