Skip to content

Commit f71c3c6

Browse files
authored
Merge pull request #7 from restaumatic/stackage-18.11
stackage 18.11
2 parents 12eb323 + 888c71d commit f71c3c6

File tree

3 files changed

+25
-55
lines changed

3 files changed

+25
-55
lines changed

src/Network/VCR.hs

Lines changed: 10 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,12 @@ server = execParser opts >>= run
4848
<> header "VCR Proxy" )
4949

5050
run :: Options -> IO ()
51-
run options@Options { mode, cassettePath, port } = do
51+
run options = withServer options $ do
52+
forever $ threadDelay 1000000000
53+
54+
55+
withServer :: Options -> IO a -> IO a
56+
withServer options@Options { mode, cassettePath, port } action = do
5257
putStrLn $ "Starting VCR proxy, mode: " <> show mode <> ", cassette file: " <> cassettePath <> ", listening on port: " <> show port
5358
case mode of
5459
Record endpoint -> do
@@ -60,12 +65,12 @@ run options@Options { mode, cassettePath, port } = do
6065
Left err -> die $ "Cassette: " <> cassettePath <> " couldn't be decoded or found! " <> (show err)
6166
Right cassette -> do
6267
cassetteIORef <- newIORef cassette
63-
withServer options cassetteIORef $ do
68+
runInternal options cassetteIORef $ do
6469
putStrLn "VCR proxy started"
65-
forever $ threadDelay 1000000000
70+
action
6671

67-
withServer :: Options -> IORef Cassette -> IO a -> IO a
68-
withServer Options { mode, cassettePath, port } cassetteIORef action = do
72+
runInternal :: Options -> IORef Cassette -> IO a -> IO a
73+
runInternal Options { mode, cassettePath, port } cassetteIORef action = do
6974
-- Set line buffering, because if we use it from a parent process, pipes are full buffered by default
7075
hSetBuffering stdout LineBuffering
7176
started <- newEmptyMVar

stack.yaml

Lines changed: 3 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@
1717
#
1818
# resolver: ./custom-snapshot.yaml
1919
# resolver: https://example.com/snapshots/2018-01-01.yaml
20-
resolver: lts-13.6
20+
resolver: lts-18.11
2121

2222
# User packages to be built.
2323
# Various formats can be used as shown in the example below.
@@ -38,12 +38,8 @@ packages:
3838
# using the same syntax as the packages field.
3939
# (e.g., acme-missiles-0.3)
4040
extra-deps:
41-
- conduit-1.2.13.1
42-
- conduit-extra-1.2.3.2
43-
- http-conduit-2.2.4
44-
- http-proxy-0.1.0.5
45-
- resourcet-1.1.11
46-
- streaming-commons-0.1.19
41+
- git: https://github.com/erikd/http-proxy.git
42+
commit: 188f73a8dd9c994878de4f1c6429f2a6aec9d1b1
4743

4844
# Override default flag values for local packages and extra-deps
4945
# flags: {}

stack.yaml.lock

Lines changed: 12 additions & 43 deletions
Original file line numberDiff line numberDiff line change
@@ -5,50 +5,19 @@
55

66
packages:
77
- completed:
8-
hackage: conduit-1.2.13.1@sha256:afd4db7fe66ae7af3d418e1a932384a8dee08df2f6299cca80e53ba964ce1228,4371
8+
name: http-proxy
9+
version: 0.1.2.0
10+
git: https://github.com/erikd/http-proxy.git
911
pantry-tree:
10-
size: 1191
11-
sha256: c24b0058c187a98780d227072cb701efeca1571c1c88ca331e53799cc3d051fb
12+
size: 1498
13+
sha256: 93869630e57ad90c1a2abbd27bf2990f48dca2dc6f26108cc96d2b1ec07f4aef
14+
commit: 188f73a8dd9c994878de4f1c6429f2a6aec9d1b1
1215
original:
13-
hackage: conduit-1.2.13.1
14-
- completed:
15-
hackage: conduit-extra-1.2.3.2@sha256:911f76ce00b87a44ed5205b092b6150f456062e8f833c645b09c9357d986c854,4793
16-
pantry-tree:
17-
size: 2396
18-
sha256: f968c54ae1b4cd25eb5b189341c6cc1c63e69892ad21a13c93da41238964f2ec
19-
original:
20-
hackage: conduit-extra-1.2.3.2
21-
- completed:
22-
hackage: http-conduit-2.2.4@sha256:0e1e8e6f9675ae3c2f17108614b2c2f792e0647f794d713db97403b664ae5a24,2903
23-
pantry-tree:
24-
size: 784
25-
sha256: 2d094c3836b25cd0e78df65286842dbed769b623399a2d7a6bd9018a86714d6f
26-
original:
27-
hackage: http-conduit-2.2.4
28-
- completed:
29-
hackage: http-proxy-0.1.0.5@sha256:7740591b0d486b21e8cd159d0d133f6c3aa6f7e086d23aa31f29b46f8dd66c28,3597
30-
pantry-tree:
31-
size: 674
32-
sha256: b3f028039ed38fe834764cd5a9e144ed8d061cf90b4f7570051d4decdbacc098
33-
original:
34-
hackage: http-proxy-0.1.0.5
35-
- completed:
36-
hackage: resourcet-1.1.11@sha256:096a3db6774a728bbe264e3e25c4e40d60e527ebd4b90c0b311deaa8d4cf4f27,1976
37-
pantry-tree:
38-
size: 647
39-
sha256: 90955fbe978b95e7a2e1067a7c475f1918b98ba77f80fd0953225d0dd2086ee0
40-
original:
41-
hackage: resourcet-1.1.11
42-
- completed:
43-
hackage: streaming-commons-0.1.19@sha256:3a02f84578f75eac1425dca877f8d697b68d379a21970c1dad96196620404803,5262
44-
pantry-tree:
45-
size: 3544
46-
sha256: 1a064ebd5371903f8192e0486fa1aff8030acac4e5145088106456c71ef91f2b
47-
original:
48-
hackage: streaming-commons-0.1.19
16+
git: https://github.com/erikd/http-proxy.git
17+
commit: 188f73a8dd9c994878de4f1c6429f2a6aec9d1b1
4918
snapshots:
5019
- completed:
51-
size: 495200
52-
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/6.yaml
53-
sha256: 3baf62db5746f24561641bc15aadddbf5c973a5a1d587beb9eb9ddb4cf5628eb
54-
original: lts-13.6
20+
size: 586041
21+
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/18/11.yaml
22+
sha256: ae30d25a4691c6bb32b5766c617dff24270b2b3576ebd6047d754418e9256389
23+
original: lts-18.11

0 commit comments

Comments
 (0)