Skip to content

Commit f7f3ebb

Browse files
committed
Added warnings to typed-protocols:test
1 parent 3423436 commit f7f3ebb

File tree

2 files changed

+5
-10
lines changed

2 files changed

+5
-10
lines changed

typed-protocols/test/Network/TypedProtocol/ReqResp/Tests.hs

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -21,7 +21,6 @@ import Control.Monad.Class.MonadAsync
2121
import Control.Monad.Class.MonadST
2222
import Control.Monad.Class.MonadSTM
2323
import Control.Monad.Class.MonadThrow
24-
import Control.Monad.Class.MonadTimer.SI
2524
import Control.Monad.IOSim
2625
import Control.Monad.ST (runST)
2726
import Control.Tracer (nullTracer)
@@ -193,7 +192,7 @@ prop_channel_ST f xs =
193192

194193

195194
prop_channelPipelined :: ( MonadLabelledSTM m, MonadAsync m, MonadCatch m
196-
, MonadDelay m, MonadST m)
195+
, MonadST m)
197196
=> (Int -> Int -> (Int, Int)) -> [Int]
198197
-> m Bool
199198
prop_channelPipelined f xs = do

typed-protocols/typed-protocols.cabal

Lines changed: 4 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -142,6 +142,7 @@ library examples
142142
LambdaCase
143143

144144
test-suite test
145+
import: warnings
145146
type: exitcode-stdio-1.0
146147
main-is: Main.hs
147148
hs-source-dirs: test
@@ -153,19 +154,14 @@ test-suite test
153154
build-depends: base
154155
, bytestring
155156
, contra-tracer
156-
, typed-protocols:{typed-protocols,cborg,examples}
157-
, io-classes:{io-classes,si-timers}
157+
, typed-protocols:{typed-protocols,examples}
158+
, io-classes:io-classes
158159
, io-sim
159160
, QuickCheck
160161
, tasty
161162
, tasty-quickcheck
162-
163163
if !os(windows)
164164
build-depends: directory
165165
, network
166166
, unix
167-
168-
ghc-options: -rtsopts
169-
-Wall
170-
-Wno-unticked-promoted-constructors
171-
-Wno-orphans
167+
ghc-options: -rtsopts

0 commit comments

Comments
 (0)