Skip to content

Commit

Permalink
Normalized line endings on files, that had not been normalized before.
Browse files Browse the repository at this point in the history
  • Loading branch information
DanielFabian committed Nov 30, 2012
1 parent c025f9d commit cb9942f
Show file tree
Hide file tree
Showing 126 changed files with 27,157 additions and 27,157 deletions.
68 changes: 34 additions & 34 deletions manualNuget.DslSample/content/SampleTypeProvider.fs.pp
Original file line number Diff line number Diff line change
@@ -1,35 +1,35 @@
module $rootnamespace$

open FSharpx.TypeProviders.DSL
open Microsoft.FSharp.Core.CompilerServices
open Samples.FSharpPreviewRelease2011.ProvidedTypes
open System.Reflection

let rootNamespace = "$rootnamespace$"
let thisAssembly = Assembly.GetExecutingAssembly()

let addMyTypedMembers (param:string) (tyDef:ProvidedTypeDefinition) =
try
tyDef
|+> literalField "MySampleFieldName" param
|> addXmlDoc (sprintf "Returns the string that was provided as the static parameter (i.e. %s)" param)
|> ignore

tyDef
with
| exn -> tyDef

let typedMySample () =
erasedType<obj> thisAssembly rootNamespace "MySample"
|> staticParameter "sampleParam" (fun typeName param ->
erasedType<obj> thisAssembly rootNamespace typeName
|> addMyTypedMembers param)

[<TypeProvider>]
type public SampleTypeProvider() as this =
inherit TypeProviderForNamespaces()

do this.AddNamespace(rootNamespace, [typedMySample()])

[<TypeProviderAssembly>]
module $rootnamespace$

open FSharpx.TypeProviders.DSL
open Microsoft.FSharp.Core.CompilerServices
open Samples.FSharpPreviewRelease2011.ProvidedTypes
open System.Reflection

let rootNamespace = "$rootnamespace$"
let thisAssembly = Assembly.GetExecutingAssembly()

let addMyTypedMembers (param:string) (tyDef:ProvidedTypeDefinition) =
try
tyDef
|+> literalField "MySampleFieldName" param
|> addXmlDoc (sprintf "Returns the string that was provided as the static parameter (i.e. %s)" param)
|> ignore

tyDef
with
| exn -> tyDef

let typedMySample () =
erasedType<obj> thisAssembly rootNamespace "MySample"
|> staticParameter "sampleParam" (fun typeName param ->
erasedType<obj> thisAssembly rootNamespace typeName
|> addMyTypedMembers param)

[<TypeProvider>]
type public SampleTypeProvider() as this =
inherit TypeProviderForNamespaces()

do this.AddNamespace(rootNamespace, [typedMySample()])

[<TypeProviderAssembly>]
do ()
16 changes: 8 additions & 8 deletions manualNuget.DslSample/content/Test.fsx.pp
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
#r @"bin\debug\$assemblyname$.dll"

open $rootnamespace$

type sample = MySample<"SampleStaticValue">
printfn "The provided static param value is %s" sample.MySampleFieldName


#r @"bin\debug\$assemblyname$.dll"

open $rootnamespace$

type sample = MySample<"SampleStaticValue">
printfn "The provided static param value is %s" sample.MySampleFieldName


12 changes: 6 additions & 6 deletions manualNuget.DslSample/content/TestTypeProvider.bat.pp
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
IF EXIST "%ProgramFiles(x86)%" (
"%ProgramFiles(x86)%\Microsoft SDKs\F#\3.0\Framework\v4.0\fsc.exe" -r:bin\debug\$assemblyname$.dll Test.fsx
) ELSE (
"%ProgramFiles%\Microsoft SDKs\F#\3.0\Framework\v4.0\fsc.exe" -r:bin\debug\$assemblyname$.dll Test.fsx
)

IF EXIST "%ProgramFiles(x86)%" (
"%ProgramFiles(x86)%\Microsoft SDKs\F#\3.0\Framework\v4.0\fsc.exe" -r:bin\debug\$assemblyname$.dll Test.fsx
) ELSE (
"%ProgramFiles%\Microsoft SDKs\F#\3.0\Framework\v4.0\fsc.exe" -r:bin\debug\$assemblyname$.dll Test.fsx
)

pause
10 changes: 5 additions & 5 deletions manualNuget.Sample/content/Test.config.pp
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<appSettings>
<add key="TestInt1" value="123" />
</appSettings>
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<appSettings>
<add key="TestInt1" value="123" />
</appSettings>
</configuration>
14 changes: 7 additions & 7 deletions manualNuget.Sample/content/TypeAppSettingsExample.fs.pp
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
module $rootnamespace$

open FSharpx

type settings = AppSettingsTyped< "Test.config" >

printfn "TestInt1 Value is %i" settings.TestInt1
module $rootnamespace$

open FSharpx

type settings = AppSettingsTyped< "Test.config" >

printfn "TestInt1 Value is %i" settings.TestInt1
Loading

0 comments on commit cb9942f

Please sign in to comment.