added files to my library
This commit is contained in:
parent
f5c8a9692f
commit
4803fe9b90
Binary file not shown.
@ -1,6 +1,6 @@
|
||||
namespace DeskHubSharp.Models
|
||||
|
||||
type EmailModel(fromEmail: string, toEmail: string, password: string) =
|
||||
member x.FromEmail = "wjmiller2016@gmail.com"
|
||||
member x.ToEmail = "wjmiller2016@gmail.com"
|
||||
member x.Password = "password"
|
||||
type EmailModel() =
|
||||
member this.FromEmail = "wjmiller2016@gmail.com"
|
||||
member this.ToEmail = "wjmiller2016@gmail.com"
|
||||
member this.Password = "password"
|
||||
|
3
DeskHubSharp.Models/Error.fs
Normal file
3
DeskHubSharp.Models/Error.fs
Normal file
@ -0,0 +1,3 @@
|
||||
module Error
|
||||
|
||||
// This file is to test out file IO and exceptions
|
9
DeskHubSharp.Models/Math.fs
Normal file
9
DeskHubSharp.Models/Math.fs
Normal file
@ -0,0 +1,9 @@
|
||||
module Math
|
||||
|
||||
let addOne x = x + 1
|
||||
|
||||
let square x = x * x
|
||||
|
||||
let slash x = x / x
|
||||
|
||||
let recursive x = 1 / x
|
15
DeskHubSharp.Models/Opener.fs
Normal file
15
DeskHubSharp.Models/Opener.fs
Normal file
@ -0,0 +1,15 @@
|
||||
module Opener
|
||||
|
||||
open System.IO
|
||||
open System.Diagnostics
|
||||
|
||||
let file =
|
||||
try
|
||||
use file = File.OpenRead "config.xml"
|
||||
Some <| file.Read
|
||||
with
|
||||
:? FileNotFoundException as ex ->
|
||||
printfn "%s was not found. Does it exist?" ex.FileName
|
||||
None
|
||||
_ -> printfn "Error loading file..."
|
||||
reraise()
|
Reference in New Issue
Block a user