git.iko.soy/streamly
on master help sign in
Add -Wmissing-export-lists flag
commitf30eafd440c334df0d216a2c2da846a956475177 authorRanjeet Kumar Ranjan <ranjeetr@composewell.com> dateFri 11 Feb 2022, 10:57 (5 years ago) parente65c5db
20 files changed+100−17
compare with master
unifiedsplit
benchmark/lib/Streamly/Benchmark/Prelude.hs+54−1 benchmark/streamly-benchmarks.cabal+1 src/Streamly/Internal/Unicode/Char/Parser.hs+28−1 streamly.cabal+1 test/Streamly/Test/Data/Array.hs+1−1 test/Streamly/Test/Data/Array/Prim.hs+1−1 test/Streamly/Test/Data/Array/Prim/Pinned.hs+1−1 test/Streamly/Test/Data/SmallArray.hs+1−1 test/Streamly/Test/Prelude/Ahead.hs+1−1 test/Streamly/Test/Prelude/Async.hs+1−1 test/Streamly/Test/Prelude/Concurrent.hs+1−1 test/Streamly/Test/Prelude/Fold.hs+1−1 test/Streamly/Test/Prelude/Parallel.hs+1−1 test/Streamly/Test/Prelude/Rate.hs+1−1 test/Streamly/Test/Prelude/Serial.hs+1−1 test/Streamly/Test/Prelude/WAsync.hs+1−1 test/Streamly/Test/Prelude/WSerial.hs+1−1 test/Streamly/Test/Prelude/ZipAsync.hs+1−1 test/Streamly/Test/Prelude/ZipSerial.hs+1−1 test/streamly-tests.cabal+1
benchmark/lib/Streamly/Benchmark/Prelude.hs+54−1
@@ -10,7 +10,59 @@
1010{-# LANGUAGE ScopedTypeVariables #-}
1111{-# LANGUAGE RankNTypes #-}
1212
13−module Streamly.Benchmark.Prelude where
13+module Streamly.Benchmark.Prelude
14+ ( absTimes
15+ , apDiscardFst
16+ , apDiscardSnd
17+ , apLiftA2
18+ , benchIO
19+ , benchIOSink
20+ , benchIOSrc
21+ , breakAfterSome
22+ , composeN
23+ , concatFoldableWith
24+ , concatForFoldableWith
25+ , concatPairsWith
26+ , concatStreamsWith
27+ , filterAllInM
28+ , filterAllOutM
29+ , filterSome
30+ , fmapN
31+ , mapM
32+ , mapN
33+ , mkAsync
34+ , monadThen
35+ , runToList
36+ , sourceConcatMapId
37+ , sourceFoldMapM
38+ , sourceFoldMapWith
39+ , sourceFoldMapWithM
40+ , sourceFoldMapWithStream
41+ , sourceFracFromThenTo
42+ , sourceFracFromTo
43+ , sourceFromFoldable
44+ , sourceFromFoldableM
45+ , sourceFromList
46+ , sourceFromListM
47+ , sourceIntegerFromStep
48+ , sourceIntFromThenTo
49+ , sourceIntFromTo
50+ , sourceUnfoldr
51+ , sourceUnfoldrAction
52+ , sourceUnfoldrM
53+ , sourceUnfoldrMSerial
54+ , toListM
55+ , toListSome
56+ , toNull
57+ , toNullAp
58+ , toNullM
59+ , toNullM3
60+ , transformComposeMapM
61+ , transformMapM
62+ , transformTeeMapM
63+ , transformZipMapM
64+ )
65+where
1466
1567import Control.Applicative (liftA2)
1668import Control.DeepSeq (NFData(..))
@@ -20,6 +72,7 @@ import Data.Functor.Identity (Identity)
2072import Data.Semigroup (Semigroup((<>)))
2173#endif
2274import GHC.Exception (ErrorCall)
75+import Prelude hiding (mapM)
2376import System.Random (randomRIO)
2477
2578import qualified Data.Foldable as F
benchmark/streamly-benchmarks.cabal+1
@@ -84,6 +84,7 @@ common compile-options
8484 -Wredundant-constraints
8585 -Wnoncanonical-monad-instances
8686 -Rghc-timing
87+ -Wmissing-export-lists
8788
8889 if flag(has-llvm)
8990 ghc-options: -fllvm
src/Streamly/Internal/Unicode/Char/Parser.hs+28−1
@@ -11,12 +11,39 @@
1111-- Unicode Char stream and then use these parsers on the Char stream.
1212
1313-- XXX Add explicit export list.
14−module Streamly.Internal.Unicode.Char.Parser where
14+module Streamly.Internal.Unicode.Char.Parser
15+ ( alpha
16+ , alphaNum
17+ , ascii
18+ , asciiLower
19+ , asciiUpper
20+ , char
21+ , decimal
22+ , digit
23+ , double
24+ , hexadecimal
25+ , hexDigit
26+ , latin1
27+ , letter
28+ , lower
29+ , mark
30+ , number
31+ , octDigit
32+ , print
33+ , punctuation
34+ , separator
35+ , signed
36+ , space
37+ , symbol
38+ , upper
39+ )
40+where
1541
1642import Control.Applicative (Alternative(..))
1743import Control.Monad.Catch (MonadCatch)
1844import Data.Bits (Bits, (.|.), shiftL)
1945import Data.Char (ord)
46+import Prelude hiding (print)
2047import Streamly.Internal.Data.Parser (Parser)
2148
2249import qualified Data.Char as Char
streamly.cabal+1
@@ -251,6 +251,7 @@ common compile-options
251251 -Wincomplete-uni-patterns
252252 -Wredundant-constraints
253253 -Wnoncanonical-monad-instances
254+ -Wmissing-export-lists
254255 -Rghc-timing
255256
256257 if flag(has-llvm)
test/Streamly/Test/Data/Array.hs+1−1
@@ -6,7 +6,7 @@
66-- Stability : experimental
77-- Portability : GHC
88
9−module Streamly.Test.Data.Array where
9+module Streamly.Test.Data.Array (main) where
1010
1111#include "Streamly/Test/Data/Array/CommonImports.hs"
1212
test/Streamly/Test/Data/Array/Prim.hs+1−1
@@ -6,7 +6,7 @@
66-- Stability : experimental
77-- Portability : GHC
88
9−module Streamly.Test.Data.Array.Prim where
9+module Streamly.Test.Data.Array.Prim (main) where
1010
1111#include "Streamly/Test/Data/Array/CommonImports.hs"
1212
test/Streamly/Test/Data/Array/Prim/Pinned.hs+1−1
@@ -6,7 +6,7 @@
66-- Stability : experimental
77-- Portability : GHC
88
9−module Streamly.Test.Data.Array.Prim.Pinned where
9+module Streamly.Test.Data.Array.Prim.Pinned (main) where
1010
1111#include "Streamly/Test/Data/Array/CommonImports.hs"
1212
test/Streamly/Test/Data/SmallArray.hs+1−1
@@ -6,7 +6,7 @@
66-- Stability : experimental
77-- Portability : GHC
88
9−module Streamly.Test.Data.SmallArray where
9+module Streamly.Test.Data.SmallArray (main) where
1010
1111#include "Streamly/Test/Data/Array/CommonImports.hs"
1212
test/Streamly/Test/Prelude/Ahead.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.Ahead where
10+module Streamly.Test.Prelude.Ahead (main) where
1111
1212#if __GLASGOW_HASKELL__ < 808
1313import Data.Semigroup ((<>))
test/Streamly/Test/Prelude/Async.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.Async where
10+module Streamly.Test.Prelude.Async (main) where
1111
1212import Control.Concurrent (threadDelay)
1313import Data.List (sort)
test/Streamly/Test/Prelude/Concurrent.hs+1−1
@@ -9,7 +9,7 @@
99
1010{-# LANGUAGE OverloadedLists #-}
1111
12−module Streamly.Test.Prelude.Concurrent where
12+module Streamly.Test.Prelude.Concurrent (main) where
1313
1414import Control.Concurrent (MVar, takeMVar, threadDelay, putMVar, newEmptyMVar)
1515import Control.Exception
test/Streamly/Test/Prelude/Fold.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.Fold where
10+module Streamly.Test.Prelude.Fold (main) where
1111
1212#ifdef DEVBUILD
1313import Control.Concurrent (threadDelay)
test/Streamly/Test/Prelude/Parallel.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.Parallel where
10+module Streamly.Test.Prelude.Parallel (main) where
1111
1212import Data.List (sort)
1313#if !(MIN_VERSION_base(4,11,0))
test/Streamly/Test/Prelude/Rate.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.Rate where
10+module Streamly.Test.Prelude.Rate (main) where
1111
1212import qualified Streamly.Prelude as S
1313
test/Streamly/Test/Prelude/Serial.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.Serial where
10+module Streamly.Test.Prelude.Serial (checkTakeDropTime, main) where
1111
1212import Control.Concurrent ( threadDelay )
1313import Control.Monad ( when, forM_ )
test/Streamly/Test/Prelude/WAsync.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.WAsync where
10+module Streamly.Test.Prelude.WAsync (main) where
1111
1212#ifdef DEVBUILD
1313import Control.Concurrent ( threadDelay )
test/Streamly/Test/Prelude/WSerial.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.WSerial where
10+module Streamly.Test.Prelude.WSerial (main) where
1111
1212import Data.List (sort)
1313#if __GLASGOW_HASKELL__ < 808
test/Streamly/Test/Prelude/ZipAsync.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.ZipAsync where
10+module Streamly.Test.Prelude.ZipAsync (main) where
1111
1212import Test.Hspec.QuickCheck
1313import Test.Hspec as H
test/Streamly/Test/Prelude/ZipSerial.hs+1−1
@@ -7,7 +7,7 @@
77-- Stability : experimental
88-- Portability : GHC
99
10−module Streamly.Test.Prelude.ZipSerial where
10+module Streamly.Test.Prelude.ZipSerial (main) where
1111
1212#if __GLASGOW_HASKELL__ < 808
1313import Data.Semigroup ((<>))
test/streamly-tests.cabal+1
@@ -67,6 +67,7 @@ common compile-options
6767 -Wincomplete-uni-patterns
6868 -Wredundant-constraints
6969 -Wnoncanonical-monad-instances
70+ -Wmissing-export-lists
7071 -Rghc-timing
7172
7273 if flag(has-llvm)