added files to my library

This commit is contained in:
Wyatt Miller 2018-12-16 14:35:17 -05:00
parent f5c8a9692f
commit 4803fe9b90
5 changed files with 31 additions and 4 deletions

Binary file not shown.

View File

@ -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"

View File

@ -0,0 +1,3 @@
module Error
// This file is to test out file IO and exceptions

View 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

View 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()