on master help sign in
using strict language extensions.
commitce607dd19dcd7ed42c28c173667a8d6abfb8d46c authorKazu Yamamoto <kazu@iij.ad.jp> dateMon 17 Jun 2019, 10:41 (7 years ago) parent32cf83b
4 files changed+21−4
auto-update/auto-update.cabal+2 warp-tls/warp-tls.cabal+4−1 warp/test/RunSpec.hs+2−2 warp/warp.cabal+13−1
auto-update/auto-update.cabal+2
@@ -21,6 +21,8 @@ library
2121 other-modules: Control.AutoUpdate.Util
2222 build-depends: base >= 4 && < 5
2323 default-language: Haskell2010
24+ if impl(ghc >= 8)
25+ default-extensions: Strict StrictData
2426
2527-- Test suite is currently not robust enough, gives too many false negatives.
2628
warp-tls/warp-tls.cabal+4−1
@@ -8,7 +8,7 @@ Maintainer: michael@snoyman.com
88Homepage: http://github.com/yesodweb/wai
99Category: Web, Yesod
1010Build-Type: Simple
11−Cabal-Version: >=1.6
11+Cabal-Version: >= 1.10
1212Stability: Stable
1313description: SSLv1 and SSLv2 are obsoleted by IETF.
1414 We should use TLS 1.2 (or TLS 1.1 or TLS 1.0 if necessary).
@@ -32,6 +32,9 @@ Library
3232 ghc-options: -Wall
3333 if os(windows)
3434 Cpp-Options: -DWINDOWS
35+ if impl(ghc >= 8)
36+ Default-Extensions: Strict StrictData
37+ Default-Language: Haskell2010
3538
3639
3740source-repository head
warp/test/RunSpec.hs+2−2
@@ -411,13 +411,13 @@ spec = do
411411 it "streaming echo #249" $ do
412412 countVar <- newTVarIO (0 :: Int)
413413 let app req f = f $ responseStream status200 [] $ \write _ -> do
414− let loop = do
414+ let loop = do
415415 bs <- getRequestBodyChunk req
416416 unless (S.null bs) $ do
417417 write $ byteString bs
418418 atomically $ modifyTVar countVar (+ 1)
419419 loop
420− loop
420+ loop
421421 withApp defaultSettings app $ \port -> do
422422 (sock, _addr) <- getSocketTCP "127.0.0.1" port
423423 sendAll sock "POST / HTTP/1.1\r\ntransfer-encoding: chunked\r\n\r\n"
warp/warp.cabal+13−1
@@ -8,7 +8,7 @@ Maintainer: michael@snoyman.com
88Homepage: http://github.com/yesodweb/wai
99Category: Web, Yesod
1010Build-Type: Simple
11−Cabal-Version: >=1.8
11+Cabal-Version: >= 1.10
1212Stability: Stable
1313description: HTTP\/1.0, HTTP\/1.1 and HTTP\/2 are supported.
1414 For HTTP\/2, Warp supports direct and ALPN (in TLS)
@@ -112,6 +112,9 @@ Library
112112 else
113113 Build-Depends: unix
114114 Other-modules: Network.Wai.Handler.Warp.MultiMap
115+ if impl(ghc >= 8)
116+ Default-Extensions: Strict StrictData
117+ Default-Language: Haskell2010
115118
116119Test-Suite doctest
117120 Type: exitcode-stdio-1.0
@@ -122,6 +125,9 @@ Test-Suite doctest
122125 , doctest >= 0.10.1
123126 if os(windows)
124127 Buildable: False
128+ if impl(ghc >= 8)
129+ Default-Extensions: Strict StrictData
130+ Default-Language: Haskell2010
125131
126132Test-Suite spec
127133 Main-Is: Spec.hs
@@ -223,6 +229,9 @@ Test-Suite spec
223229 if os(windows)
224230 Cpp-Options: -DWINDOWS
225231 Build-Depends: time
232+ if impl(ghc >= 8)
233+ Default-Extensions: Strict StrictData
234+ Default-Language: Haskell2010
226235
227236Benchmark parser
228237 Type: exitcode-stdio-1.0
@@ -256,6 +265,9 @@ Benchmark parser
256265 if os(windows)
257266 Cpp-Options: -DWINDOWS
258267 Build-Depends: time
268+ if impl(ghc >= 8)
269+ Default-Extensions: Strict StrictData
270+ Default-Language: Haskell2010
259271
260272Source-Repository head
261273 Type: git