git.iko.soy/streamly
on master help sign in
Add -Wmissing-export-lists flag
f30eafdRanjeet Kumar Ranjan
benchmark/lib/Streamly/Benchmark/Prelude.hs+54−1
compare with master
unifiedsplit
@@ -10,7 +10,59 @@
10{-# LANGUAGE ScopedTypeVariables #-}
10{-# LANGUAGE ScopedTypeVariables #-}
11{-# LANGUAGE RankNTypes #-}
11{-# LANGUAGE RankNTypes #-}
12
12
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
14
66
15import Control.Applicative (liftA2)
67import Control.Applicative (liftA2)
16import Control.DeepSeq (NFData(..))
68import Control.DeepSeq (NFData(..))
@@ -20,6 +72,7 @@ import Data.Functor.Identity (Identity)
20import Data.Semigroup (Semigroup((<>)))
72import Data.Semigroup (Semigroup((<>)))
21#endif
73#endif
22import GHC.Exception (ErrorCall)
74import GHC.Exception (ErrorCall)
75+import Prelude hiding (mapM)
23import System.Random (randomRIO)
76import System.Random (randomRIO)
24
77
25import qualified Data.Foldable as F
78import qualified Data.Foldable as F
benchmark/streamly-benchmarks.cabal+1
@@ -84,6 +84,7 @@ common compile-options
84 -Wredundant-constraints
84 -Wredundant-constraints
85 -Wnoncanonical-monad-instances
85 -Wnoncanonical-monad-instances
86 -Rghc-timing
86 -Rghc-timing
87+ -Wmissing-export-lists
87
88
88 if flag(has-llvm)
89 if flag(has-llvm)
89 ghc-options: -fllvm
90 ghc-options: -fllvm
src/Streamly/Internal/Unicode/Char/Parser.hs+28−1
@@ -11,12 +11,39 @@
11-- Unicode Char stream and then use these parsers on the Char stream.
11-- Unicode Char stream and then use these parsers on the Char stream.
12
12
13-- XXX Add explicit export list.
13-- 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
15
41
16import Control.Applicative (Alternative(..))
42import Control.Applicative (Alternative(..))
17import Control.Monad.Catch (MonadCatch)
43import Control.Monad.Catch (MonadCatch)
18import Data.Bits (Bits, (.|.), shiftL)
44import Data.Bits (Bits, (.|.), shiftL)
19import Data.Char (ord)
45import Data.Char (ord)
46+import Prelude hiding (print)
20import Streamly.Internal.Data.Parser (Parser)
47import Streamly.Internal.Data.Parser (Parser)
21
48
22import qualified Data.Char as Char
49import qualified Data.Char as Char
streamly.cabal+1
@@ -251,6 +251,7 @@ common compile-options
251 -Wincomplete-uni-patterns
251 -Wincomplete-uni-patterns
252 -Wredundant-constraints
252 -Wredundant-constraints
253 -Wnoncanonical-monad-instances
253 -Wnoncanonical-monad-instances
254+ -Wmissing-export-lists
254 -Rghc-timing
255 -Rghc-timing
255
256
256 if flag(has-llvm)
257 if flag(has-llvm)
test/Streamly/Test/Data/Array.hs+1−1
@@ -6,7 +6,7 @@
6-- Stability : experimental
6-- Stability : experimental
7-- Portability : GHC
7-- Portability : GHC
8
8
9−module Streamly.Test.Data.Array where
9+module Streamly.Test.Data.Array (main) where
10
10
11#include "Streamly/Test/Data/Array/CommonImports.hs"
11#include "Streamly/Test/Data/Array/CommonImports.hs"
12
12
test/Streamly/Test/Data/Array/Prim.hs+1−1
@@ -6,7 +6,7 @@
6-- Stability : experimental
6-- Stability : experimental
7-- Portability : GHC
7-- Portability : GHC
8
8
9−module Streamly.Test.Data.Array.Prim where
9+module Streamly.Test.Data.Array.Prim (main) where
10
10
11#include "Streamly/Test/Data/Array/CommonImports.hs"
11#include "Streamly/Test/Data/Array/CommonImports.hs"
12
12
test/Streamly/Test/Data/Array/Prim/Pinned.hs+1−1
@@ -6,7 +6,7 @@
6-- Stability : experimental
6-- Stability : experimental
7-- Portability : GHC
7-- Portability : GHC
8
8
9−module Streamly.Test.Data.Array.Prim.Pinned where
9+module Streamly.Test.Data.Array.Prim.Pinned (main) where
10
10
11#include "Streamly/Test/Data/Array/CommonImports.hs"
11#include "Streamly/Test/Data/Array/CommonImports.hs"
12
12
test/Streamly/Test/Data/SmallArray.hs+1−1
@@ -6,7 +6,7 @@
6-- Stability : experimental
6-- Stability : experimental
7-- Portability : GHC
7-- Portability : GHC
8
8
9−module Streamly.Test.Data.SmallArray where
9+module Streamly.Test.Data.SmallArray (main) where
10
10
11#include "Streamly/Test/Data/Array/CommonImports.hs"
11#include "Streamly/Test/Data/Array/CommonImports.hs"
12
12
test/Streamly/Test/Prelude/Ahead.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.Ahead where
10+module Streamly.Test.Prelude.Ahead (main) where
11
11
12#if __GLASGOW_HASKELL__ < 808
12#if __GLASGOW_HASKELL__ < 808
13import Data.Semigroup ((<>))
13import Data.Semigroup ((<>))
test/Streamly/Test/Prelude/Async.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.Async where
10+module Streamly.Test.Prelude.Async (main) where
11
11
12import Control.Concurrent (threadDelay)
12import Control.Concurrent (threadDelay)
13import Data.List (sort)
13import Data.List (sort)
test/Streamly/Test/Prelude/Concurrent.hs+1−1
@@ -9,7 +9,7 @@
9
9
10{-# LANGUAGE OverloadedLists #-}
10{-# LANGUAGE OverloadedLists #-}
11
11
12−module Streamly.Test.Prelude.Concurrent where
12+module Streamly.Test.Prelude.Concurrent (main) where
13
13
14import Control.Concurrent (MVar, takeMVar, threadDelay, putMVar, newEmptyMVar)
14import Control.Concurrent (MVar, takeMVar, threadDelay, putMVar, newEmptyMVar)
15import Control.Exception
15import Control.Exception
test/Streamly/Test/Prelude/Fold.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.Fold where
10+module Streamly.Test.Prelude.Fold (main) where
11
11
12#ifdef DEVBUILD
12#ifdef DEVBUILD
13import Control.Concurrent (threadDelay)
13import Control.Concurrent (threadDelay)
test/Streamly/Test/Prelude/Parallel.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.Parallel where
10+module Streamly.Test.Prelude.Parallel (main) where
11
11
12import Data.List (sort)
12import Data.List (sort)
13#if !(MIN_VERSION_base(4,11,0))
13#if !(MIN_VERSION_base(4,11,0))
test/Streamly/Test/Prelude/Rate.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.Rate where
10+module Streamly.Test.Prelude.Rate (main) where
11
11
12import qualified Streamly.Prelude as S
12import qualified Streamly.Prelude as S
13
13
test/Streamly/Test/Prelude/Serial.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.Serial where
10+module Streamly.Test.Prelude.Serial (checkTakeDropTime, main) where
11
11
12import Control.Concurrent ( threadDelay )
12import Control.Concurrent ( threadDelay )
13import Control.Monad ( when, forM_ )
13import Control.Monad ( when, forM_ )
test/Streamly/Test/Prelude/WAsync.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.WAsync where
10+module Streamly.Test.Prelude.WAsync (main) where
11
11
12#ifdef DEVBUILD
12#ifdef DEVBUILD
13import Control.Concurrent ( threadDelay )
13import Control.Concurrent ( threadDelay )
test/Streamly/Test/Prelude/WSerial.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.WSerial where
10+module Streamly.Test.Prelude.WSerial (main) where
11
11
12import Data.List (sort)
12import Data.List (sort)
13#if __GLASGOW_HASKELL__ < 808
13#if __GLASGOW_HASKELL__ < 808
test/Streamly/Test/Prelude/ZipAsync.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.ZipAsync where
10+module Streamly.Test.Prelude.ZipAsync (main) where
11
11
12import Test.Hspec.QuickCheck
12import Test.Hspec.QuickCheck
13import Test.Hspec as H
13import Test.Hspec as H
test/Streamly/Test/Prelude/ZipSerial.hs+1−1
@@ -7,7 +7,7 @@
7-- Stability : experimental
7-- Stability : experimental
8-- Portability : GHC
8-- Portability : GHC
9
9
10−module Streamly.Test.Prelude.ZipSerial where
10+module Streamly.Test.Prelude.ZipSerial (main) where
11
11
12#if __GLASGOW_HASKELL__ < 808
12#if __GLASGOW_HASKELL__ < 808
13import Data.Semigroup ((<>))
13import Data.Semigroup ((<>))
test/streamly-tests.cabal+1
@@ -67,6 +67,7 @@ common compile-options
67 -Wincomplete-uni-patterns
67 -Wincomplete-uni-patterns
68 -Wredundant-constraints
68 -Wredundant-constraints
69 -Wnoncanonical-monad-instances
69 -Wnoncanonical-monad-instances
70+ -Wmissing-export-lists
70 -Rghc-timing
71 -Rghc-timing
71
72
72 if flag(has-llvm)
73 if flag(has-llvm)