@@ -21,7 +21,7 @@ Minimal complete definition
2121 * ``traverse f x`` | ``sequence x``
2222*)
2323(**
24- static member Traverse (t:'Traversable<'T>, f : 'T-> 'Functor<'U>) : 'Functor<'Traversable<'U>>
24+ static member Traverse (t:'Traversable<'T>, f: 'T -> 'Functor<'U>) : 'Functor<'Traversable<'U>>
2525 static member Sequence (t:'Traversable<'Functor<'T>>) : 'Functor<'Traversable<'T>>
2626*)
2727(**
@@ -68,7 +68,7 @@ From F#+
6868 - [``ZipList<'T>``](type-ziplist.html)
6969 - [``NonEmptyList<'T>``](type-nonempty.html)
7070 - [``NonEmptyMap<'Key, 'T>``](type-nonempty-map.html)
71- - [``Validation<'Error,'T>``](type-validation.html)
71+ - [``Validation<'Error, 'T>``](type-validation.html)
7272
7373
7474 [Suggest another](https://github.com/fsprojects/FSharpPlus/issues/new) concrete implementation
@@ -88,26 +88,26 @@ open FSharpPlus
8888
8989
9090// Some functions
91- let getLine = async { return System.Console.ReadLine() }
91+ let getLine = async { return System.Console.ReadLine () }
9292let f x = if x < 200 then [ 3 - x] else []
9393let g x = if x < 200 then Some ( 3 - x) else None
9494
9595// traverse
9696let resSomeminus100 = traverse f ( Some 103 )
9797let resLstOfNull = traverse f None
98- let res210 = traverse f [ 1 ; 2 ; 3 ]
99- let resSome210 = traverse g [ 1 ; 2 ; 3 ]
100- let resEmptyList = traverse f [ 1000 ; 2000 ; 3000 ]
98+ let res210 = traverse f [ 1 ; 2 ; 3 ]
99+ let resSome210 = traverse g [ 1 ; 2 ; 3 ]
100+ let resEmptyList = traverse f [ 1000 ; 2000 ; 3000 ]
101101let resEListOfElist = traverse f []
102102
103103// sequence
104- let resSome321 = sequence [ Some 3 ; Some 2 ; Some 1 ]
105- let resNone = sequence [ Some 3 ; None ; Some 1 ]
106- let res654 = ( sequence [ (+) 3 ; (+) 2 ; (+) 1 ]) 3
107- let resCombined = sequence [ [ 1 ; 2 ; 3 ] ; [ 4 ; 5 ; 6 ] ]
108- let resLstOfArr = sequence [|[ 1 ; 2 ; 3 ] ; [ 4 ; 5 ; 6 ] |] // <- Uses the default method.
109- let resArrOfLst = sequence [[| 1 ; 2 ; 3 |];[| 4 ; 5 ; 6 |]]
104+ let resSome321 = sequence [ Some 3 ; Some 2 ; Some 1 ]
105+ let resNone = sequence [ Some 3 ; None ; Some 1 ]
106+ let res654 = ( sequence [(+) 3 ; (+) 2 ; (+) 1 ]) 3
107+ let resCombined = sequence [ [ 1 ; 2 ; 3 ] ; [ 4 ; 5 ; 6 ] ]
108+ let resLstOfArr = sequence [|[ 1 ; 2 ; 3 ] ; [ 4 ; 5 ; 6 ] |] // <- Uses the default method.
109+ let resArrOfLst = sequence [[| 1 ; 2 ; 3 |]; [| 4 ; 5 ; 6 |]]
110110
111111// This computation will ask for three user inputs
112112// try Async.RunSynchronously get3strings
113- let get3strings = sequence [ getLine; getLine; getLine]
113+ let get3strings = sequence [ getLine; getLine; getLine]
0 commit comments