Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- open System.IO
- open System.Configuration
- open System.Collections
- open System.Collections.Generic
- module SomeModule =
- let ParseMember filePath =
- printf "This is never executed"
- let FunctionNeverCalled:int =
- printf "Function called: %s\n" "FunctionNeverCalled"
- 0
- let InputFile =
- match ConfigurationManager.AppSettings.Get "MemberListFile" with
- | "" -> failwithf "Invalid MemberListFile in configuration"
- | file ->
- if (File.Exists file ) then file
- else failwithf "Invalid MemberListFile in configuration"
- let FunctionCalled =
- let mylist = [(1,2);(2,3);(3,4);(1,2)]
- mylist |> Seq.distinctBy (fun (x,y) -> (x,y)) |> printf "This function is called and the output is: %A\n"
- [<EntryPoint>]
- let main argv =
- FunctionCalled
- let someValue = System.Console.Read()
- 0 // return an integer exit code
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement