1
- #r @ " packages\ FSharp.Data\ lib\ net40\ FSharp.Data.dll"
1
+ #r " packages/ FSharp.Data/ lib/ net40/ FSharp.Data.dll"
2
2
#r " System.Xml.Linq.dll"
3
3
4
4
open FSharp.Data
@@ -12,11 +12,11 @@ open Microsoft.FSharp.Reflection
12
12
/// Global variables
13
13
/// ===========================================
14
14
module GlobalVars =
15
- if not ( Directory.Exists(__ SOURCE_ DIRECTORY__ + @" \ generated" )) then
16
- Directory.CreateDirectory(__ SOURCE_ DIRECTORY__ + @" \ generated" ) |> ignore
15
+ if not ( Directory.Exists(__ SOURCE_ DIRECTORY__ + @" / generated" )) then
16
+ Directory.CreateDirectory(__ SOURCE_ DIRECTORY__ + @" / generated" ) |> ignore
17
17
18
- let inputFolder = __ SOURCE_ DIRECTORY__ + @" \ inputfiles"
19
- let makeTextWriter fileName = File.CreateText(__ SOURCE_ DIRECTORY__ + @" \ generated\ " + fileName) :> TextWriter
18
+ let inputFolder = __ SOURCE_ DIRECTORY__ + @" / inputfiles"
19
+ let makeTextWriter fileName = File.CreateText(__ SOURCE_ DIRECTORY__ + @" / generated/ " + fileName) :> TextWriter
20
20
// let jsWebOutput = makeTextWriter "domWeb.js"
21
21
// let jsWinOutput = makeTextWriter "domWindows.js"
22
22
// let jsWorkerOutput = makeTextWriter "dedicatedworker.js"
@@ -49,13 +49,13 @@ module JsonItems =
49
49
type ItemsType = JsonProvider< " inputfiles/sample.json" >
50
50
51
51
let overriddenItems =
52
- File.ReadAllText( GlobalVars.inputFolder + @" \ overridingTypes.json" ) |> ItemsType.Parse
52
+ File.ReadAllText( GlobalVars.inputFolder + @" / overridingTypes.json" ) |> ItemsType.Parse
53
53
54
54
let removedItems =
55
- File.ReadAllText( GlobalVars.inputFolder + @" \ removedTypes.json" ) |> ItemsType.Parse
55
+ File.ReadAllText( GlobalVars.inputFolder + @" / removedTypes.json" ) |> ItemsType.Parse
56
56
57
57
let addedItems =
58
- File.ReadAllText( GlobalVars.inputFolder + @" \ addedTypes.json" ) |> ItemsType.Parse
58
+ File.ReadAllText( GlobalVars.inputFolder + @" / addedTypes.json" ) |> ItemsType.Parse
59
59
60
60
// This is the kind of items in the external json files that are used as a
61
61
// correction for the spec.
@@ -95,7 +95,7 @@ module JsonItems =
95
95
module Comments =
96
96
type CommentType = JsonProvider< " inputfiles/comments.json" >
97
97
98
- let comments = File.ReadAllText(__ SOURCE_ DIRECTORY__ + @" \ inputfiles\ comments.json" ) |> CommentType.Parse
98
+ let comments = File.ReadAllText(__ SOURCE_ DIRECTORY__ + @" / inputfiles/ comments.json" ) |> CommentType.Parse
99
99
100
100
let GetCommentForProperty iName pName =
101
101
match comments.Interfaces |> Array.tryFind ( fun i -> i.Name = iName) with
0 commit comments