Fix issue #249 with AppSettings provider

AppSettings Type Provider should get changed settings values from <app
name>.exe.config

Author: alex-bogomaz

src/FSharpx.TypeProviders.AppSettings/AppSettingsProvider.fs

@@ -40,17 +40,20 @@ let internal typedAppSettings (ownerType:TypeProviderForNamespaces) (cfg:TypePro
                     let appSettings = ConfigurationManager.OpenMappedExeConfiguration(fileMap, ConfigurationUserLevel.None).AppSettings.Settings
 
                     for key in appSettings.AllKeys do
-                        let field =
+                        let name = niceName key
+                        let getValue = <@@ ConfigurationManager.AppSettings.[key] @@>
+                        let prop =
                             match (appSettings.Item key).Value with
-                            | Int fieldValue ->    ProvidedLiteralField(niceName key, typeof<int>, fieldValue)
-                            | Bool fieldValue ->   ProvidedLiteralField(niceName key, typeof<bool>, fieldValue)
-                            | Double fieldValue -> ProvidedLiteralField(niceName key, typeof<float>, fieldValue)
-                            | fieldValue ->        ProvidedLiteralField(niceName key, typeof<string>, fieldValue)
+                            | Int _ ->    ProvidedProperty(name, typeof<int>, GetterCode = (fun _ -> <@@ Int32.Parse(%%getValue) @@>))
+                            | Bool _ ->   ProvidedProperty(name, typeof<bool>, GetterCode = (fun _ -> <@@ Boolean.Parse(%%getValue) @@>))
+                            | Double _ -> ProvidedProperty(name, typeof<float>, GetterCode = (fun _ -> <@@ Double.Parse(%%getValue, Globalization.NumberStyles.Any, Globalization.CultureInfo.InvariantCulture) @@>))
+                            | _ ->        ProvidedProperty(name, typeof<string>, GetterCode = (fun _ -> getValue))
 
-                        field.AddXmlDoc (sprintf "Returns the value from %s with key %s" configFileName key)
-                        field.AddDefinitionLocation(1,1,configFileName)
+                        prop.IsStatic <- true
+                        prop.AddXmlDoc (sprintf "Returns the value from %s with key %s" configFileName key)
+                        prop.AddDefinitionLocation(1,1,configFileName)
 
-                        typeDef.AddMember field
+                        typeDef.AddMember prop
 
                     typeDef
                 with 

…viders.AppSettings.Tests/Test.App.config …peProviders.AppSettings.Tests/App.configtests/FSharpx.TypeProviders.AppSettings.Tests/Test.App.config renamed to tests/FSharpx.TypeProviders.AppSettings.Tests/App.config tests/FSharpx.TypeProviders.AppSettings.Tests/Test.App.config renamed to tests/FSharpx.TypeProviders.AppSettings.Tests/App.config

@@ -4,7 +4,7 @@ open NUnit.Framework
 open FSharpx
 open FsUnit
 
-type Settings = AppSettings<"Test.App.config">
+type Settings = AppSettings<"App.config">
 
 [<Test>] 
 let ``Can return a string from the config file``() =   

tests/FSharpx.TypeProviders.AppSettings.Tests/AppSettings.Tests.fs

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
   <PropertyGroup>
@@ -48,6 +48,7 @@
       <HintPath>..\..\packages\NUnit.2.6.2\lib\nunit.framework.dll</HintPath>
     </Reference>
     <Reference Include="System" />
+    <Reference Include="System.Configuration" />
     <Reference Include="System.Core" />
     <Reference Include="System.Numerics" />
   </ItemGroup>
@@ -56,9 +57,7 @@
       <Link>FsUnit.fs</Link>
     </Compile>
     <Compile Include="AppSettings.Tests.fs" />
-    <Content Include="Test.App.config">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
+    <None Include="App.config" />
   </ItemGroup>
   <PropertyGroup>
     <MinimumVisualStudioVersion Condition="'$(MinimumVisualStudioVersion)' == ''">11</MinimumVisualStudioVersion>