fix docs

Author: dsyme

docs/AsyncSeqCombining.fsx

@@ -288,7 +288,10 @@ each element with `Choice<'T1,'T2>` so you can distinguish the source:
 type Heartbeat = Heartbeat
 type ConfigChange = ConfigChange of string
 
-let heartbeats    : AsyncSeq<Heartbeat>     = AsyncSeq.replicateInfiniteAsync (async { do! Async.Sleep 5000; return Heartbeat })
+let heartbeats : AsyncSeq<Heartbeat> = AsyncSeq.replicateInfiniteAsync (async { 
+    do! Async.Sleep 5000
+    return Heartbeat 
+})
 let configChanges : AsyncSeq<ConfigChange>  = failwith "TODO: long-poll config store"
 
 let merged : AsyncSeq<Choice<Heartbeat, ConfigChange>> =

docs/AsyncSeqTransforming.fsx

@@ -5,7 +5,7 @@ category: Documentation
 categoryindex: 2
 index: 3
 description: How to transform, filter and reduce F# asynchronous sequences using map, filter, reduce, fold and sum operations.
-keywords: F#, asynchronous sequences, AsyncSeq, map, filter, reduce, fold, sum, mapFoldAsync
+keywords: F#, asynchronous sequences, AsyncSeq, map, filter, reduce, fold, sum
 ---
 *)
 (*** condition: prepare ***)
@@ -26,8 +26,7 @@ keywords: F#, asynchronous sequences, AsyncSeq, map, filter, reduce, fold, sum,
 
 # Transforming and Reducing Sequences
 
-This document covers some of the core operations for transforming and aggregating `AsyncSeq<'T>` values:
-`map`, `mapAsync`, `filter`, `filterAsync`, `reduceAsync`, `mapFoldAsync`, `sumBy` and `sumByAsync`.
+This document covers some of the core operations for transforming and aggregating `AsyncSeq<'T>` values: `map`, `mapAsync`, `filter`, `filterAsync`, `reduceAsync`, `sumBy` and `sumByAsync`.
 
 *)
 
@@ -137,25 +136,6 @@ let sentence : Async<string> =
 
 (**
 
-### mapFoldAsync
-
-`AsyncSeq.mapFoldAsync` combines a map and a fold in a single pass. The folder function receives
-the current accumulator state and an element, and returns an `Async` of a *(result, newState)* pair.
-The call returns the array of mapped results together with the final state:
-
-*)
-
-// Number each element with a running index, and count total characters as state.
-let numberAndCount : Async<string array * int> =
-    words
-    |> AsyncSeq.mapFoldAsync
-        (fun totalChars word -> async {
-            let numbered = sprintf "%d: %s" totalChars word
-            return numbered, totalChars + word.Length })
-        0
-
-(**
-
 ---
 
 ## Aggregating Sequences