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
|
namespace DeskHubSharp.Models
|
||||||
|
|
||||||
type EmailModel(fromEmail: string, toEmail: string, password: string) =
|
type EmailModel() =
|
||||||
member x.FromEmail = "wjmiller2016@gmail.com"
|
member this.FromEmail = "wjmiller2016@gmail.com"
|
||||||
member x.ToEmail = "wjmiller2016@gmail.com"
|
member this.ToEmail = "wjmiller2016@gmail.com"
|
||||||
member x.Password = "password"
|
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