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 =
- printfn "Function called: %s\n" "FunctionNeverCalled" |> ignore
- 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() |> ignore
- let someValue = System.Console.Read()
- 0 // return an integer exit code
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement