Skip to content

Commit 20a8c7e

Browse files
committed
Added warnings to typed-protocols:test
1 parent a7679d1 commit 20a8c7e

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
@@ -141,6 +141,7 @@ library examples
141141
LambdaCase
142142

143143
test-suite test
144+
import: warnings
144145
type: exitcode-stdio-1.0
145146
main-is: Main.hs
146147
hs-source-dirs: test
@@ -152,19 +153,14 @@ test-suite test
152153
build-depends: base
153154
, bytestring
154155
, contra-tracer
155-
, typed-protocols:{typed-protocols,cborg,examples}
156-
, io-classes:{io-classes,si-timers}
156+
, typed-protocols:{typed-protocols,examples}
157+
, io-classes:io-classes
157158
, io-sim
158159
, QuickCheck
159160
, tasty
160161
, tasty-quickcheck
161-
162162
if !os(windows)
163163
build-depends: directory
164164
, network
165165
, unix
166-
167-
ghc-options: -rtsopts
168-
-Wall
169-
-Wno-unticked-promoted-constructors
170-
-Wno-orphans
166+
ghc-options: -rtsopts

0 commit comments

Comments
 (0)