{"action":"opened","issue":{"url":"https://api.github.com/repos/fsharp/fsharp/issues/480","labels_url":"https://api.github.com/repos/fsharp/fsharp/issues/480/labels{/name}","comments_url":"https://api.github.com/repos/fsharp/fsharp/issues/480/comments","events_url":"https://api.github.com/repos/fsharp/fsharp/issues/480/events","html_url":"https://github.com/fsharp/fsharp/issues/480","id":103196103,"number":480,"title":"Partially applied async function hangs when compiled in release mode","user":{"login":"jamesjrg","id":110452,"avatar_url":"https://avatars.githubusercontent.com/u/110452?v=3","gravatar_id":"","url":"https://api.github.com/users/jamesjrg","html_url":"https://github.com/jamesjrg","followers_url":"https://api.github.com/users/jamesjrg/followers","following_url":"https://api.github.com/users/jamesjrg/following{/other_user}","gists_url":"https://api.github.com/users/jamesjrg/gists{/gist_id}","starred_url":"https://api.github.com/users/jamesjrg/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/jamesjrg/subscriptions","organizations_url":"https://api.github.com/users/jamesjrg/orgs","repos_url":"https://api.github.com/users/jamesjrg/repos","events_url":"https://api.github.com/users/jamesjrg/events{/privacy}","received_events_url":"https://api.github.com/users/jamesjrg/received_events","type":"User","site_admin":false},"labels":[],"state":"open","locked":false,"assignee":null,"milestone":null,"comments":0,"created_at":"2015-08-26T07:22:42Z","updated_at":"2015-08-26T07:22:42Z","closed_at":null,"body":"Using .NET 4.5, F# 3.1, F# Core 4.3.1.0, Visual Studio 2013, Windows 8.1\r\n\r\nThis program hangs when compiled as Release, but not when compiled as Debug, not sure if it is a bug or if I just misunderstand something:\r\n\r\n```\r\nmodule Modulartastic =\r\n    type MrsRecordType = {\r\n        StringProperty : string }\r\n\r\n    let partialAsyncFunc _ () = async { return true }\r\n\r\n    let testFunc partialAsyncFunc = async {    \r\n        return! partialAsyncFunc() }\r\n\r\n    let parameter = {\r\n        MrsRecordType.StringProperty = \"hello\" }\r\n\r\n    let result =\r\n        testFunc (partialAsyncFunc parameter)\r\n        |> Async.RunSynchronously\r\n\r\n[<EntryPoint>]\r\nlet main argv =\r\n    0\r\n```\r\n"}}