forked from louthy/language-ext
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Prelude.cs
96 lines (83 loc) · 3.34 KB
/
Prelude.cs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
using System;
using System.Collections.Generic;
using Microsoft.FSharp.Core;
using Microsoft.FSharp.Collections;
using static LanguageExt.Prelude;
namespace LanguageExt
{
public static class FSharp
{
/// <summary>
/// Convert a F# Option into a LanguageExt Option
/// </summary>
public static Option<T> fs<T>(FSharpOption<T> fsOption) =>
FSharpOption<T>.get_IsSome(fsOption)
? Some(fsOption.Value)
: None;
/// <summary>
/// Convert a LanguageExt Option into an F# Option
/// </summary>
public static FSharpOption<T> fs<T>(Option<T> option) =>
option.Map(FSharpOption<T>.Some)
.IfNoneUnsafe(FSharpOption<T>.None);
/// <summary>
/// Convert a LanguageExt OptionUnsafe into an F# Option
/// </summary>
public static FSharpOption<T> fs<T>(OptionUnsafe<T> option) =>
option.Map(FSharpOption<T>.Some)
.IfNoneUnsafe(FSharpOption<T>.None);
/// <summary>
/// Convert an F# List into an IEnumerable T
/// </summary>
public static Lst<T> fs<T>(FSharpList<T> fsList) =>
List.createRange(fsList);
/// <summary>
/// Convert an LanguageExt List (Lst T) into an F# List
/// </summary>
public static FSharpList<T> fs<T>(Lst<T> list) =>
ListModule.OfSeq(list);
/// <summary>
/// Convert an F# Map into a LanguageExt Map (Map K V)
/// </summary>
public static Map<K, V> fs<K, V>(FSharpMap<K, V> fsMap) =>
Map.addRange( Map<K, V>(), List.map(fsMap, identity) );
/// <summary>
/// Convert a LanguageExt Map (Map K V) into an F# Map
/// </summary>
public static FSharpMap<K, V> fs<K, V>(Map<K, V> map) =>
MapModule.OfSeq(map.AsEnumerable().Map(item => Tuple(item.Key,item.Value)));
/// <summary>
/// Convert LanguageExt Unit to F# unit
/// </summary>
/// <param name="unit">()</param>
public static void fs(Unit unit)
{
}
/// <summary>
/// Convert a LanguageExt Option into an F# Option
/// </summary>
public static FSharpOption<T> ToFSharp<T>(this Option<T> option) =>
option.IsNone
? FSharpOption<T>.None
: match(option,
Some: v => FSharpOption<T>.Some(v),
None: () => failwith<FSharpOption<T>>("returns null, so can't use the None branch"));
/// <summary>
/// Convert a LanguageExt OptionUnsafe into an F# Option
/// </summary>
public static FSharpOption<T> ToFSharp<T>(this OptionUnsafe<T> option) =>
matchUnsafe(option,
Some: v => FSharpOption<T>.Some(v),
None: () => FSharpOption<T>.None);
/// <summary>
/// Convert a LanguageExt Map (Map K V) into an F# Map
/// </summary>
public static FSharpMap<K, V> ToFSharp<K, V>(this Map<K, V> map) =>
MapModule.OfSeq(map.AsEnumerable().Map(item => Tuple(item.Key, item.Value)));
/// <summary>
/// Convert an LanguageExt List (Lst A) into an F# List
/// </summary>
public static FSharpList<A> ToFSharp<A>(this Lst<A> list) =>
ListModule.OfSeq(list);
}
}