From 6e2f8332512ddc89c3fe37058547f1a0370094a5 Mon Sep 17 00:00:00 2001
From: Henrik Feldt <henrik@haf.se>
Date: Mon, 22 Aug 2016 20:52:45 +0200
Subject: [PATCH] [tests] comment about timeout

---
 HttpFs.IntegrationTests/NancyFxTests.fs | 2 +-
 HttpFs/HttpFs.fs                        | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/HttpFs.IntegrationTests/NancyFxTests.fs b/HttpFs.IntegrationTests/NancyFxTests.fs
index b390ef1..168307a 100644
--- a/HttpFs.IntegrationTests/NancyFxTests.fs
+++ b/HttpFs.IntegrationTests/NancyFxTests.fs
@@ -375,7 +375,7 @@ type ``Integration tests`` ()=
       |> run
     response.body.Close ()
 
-  [<Test; Ignore "exception not thrown on Mono - investigate">]
+  [<Test; Ignore "will be replaced w/ timeout on Alts">]
   /// Timeout follows .Net behaviour and throws WebException exception when reached.
   /// https://msdn.microsoft.com/en-us/library/system.net.httpwebrequest.timeout%28v=vs.110%29.aspx
   member x.``if the resource is not returned within Timeout, throw WebException`` () =
diff --git a/HttpFs/HttpFs.fs b/HttpFs/HttpFs.fs
index da7a052..832d6fb 100644
--- a/HttpFs/HttpFs.fs
+++ b/HttpFs/HttpFs.fs
@@ -1221,6 +1221,7 @@ module Client =
     let keepAlive value request =
       { request with keepAlive = value }
 
+    /// TODO: use as filter instead (composition)
     let timeout timeout request =
       { request with timeout = timeout }