条件付きリテラルを作成できますか？

Question

Jsonプロバイダを作成するには、パス付きリテラルを渡す必要があります。異なる場所からプロジェクトに取り組んでいる人はいろいろあり、それぞれのパスはそれぞれ異なります。 （実際には各パスの始まりのみ）。パターンマッチングでリテラルを作成しようとしましたが、コンパイラはそれを受け付けません。これを行う別の方法がありますか？

私の失敗した試みは、以下の通りです：

open FSharp.Data 

[<Literal>] 
let bitbucketRoot = // Error message: This is not a valid constant expression 
    let computerName = Environment.MachineName 
    match computerName with 
    | "DESKTOP-G3OF32U" -> "C:\\Users\\Fernando" 
    | "HPW8" -> @"H:\Dropbox\" 
    | _ -> failwith "Unknown computer" 

[<Literal>] // Error message: This is not a valid constant expression 
let projDataPath = bitbucketRoot + @"Bitbucket\VSProjects\Fractal10\Fractal10\data\" 

[<Literal>] // Error message: This is not a valid constant expression 
let jsonPath = projDataPath + "fractal.json" 
type PathInfo = JsonProvider<Sample=jsonPath> 

Answer 1

他のコメントが指摘するように条件付きリテラルを作成することはできません。しかし、これはかなり頻繁に使用する場合で、次のようにそれに対処する方法は次のとおりです。

#r @"..\packages\FSharp.Data\lib\net40\FSharp.Data.dll" 
open FSharp.Data 
open System 
open System.IO 

[<Literal>] 
let JsonSource = __SOURCE_DIRECTORY__ + @"\test.json" 

type JSonType = JsonProvider<JsonSource> 

let json1 = JSonType.GetSamples() 

let anotherPath = @"C:\tmp" 
let anotherJson = anotherPath + @"\test.json" 
let json2 = JSonType.Load(anotherJson) 

__SOURCE_DIRECTORY__ディレクティブは、プロジェクトのルートを指しています（ただREPLで表示）して、ファイル名を追加することができますそれを文字通りにする。このファイルをgitリポジトリにチェックインすると、チェックアウトした人はすべてそのファイルを相対パスに置くことができ、そのファイルを生成するときに参照することができます。実際にタイプを使用するかフルファイルを参照する場合は、.Load()メソッドを使用してファイルをロードすることができますが、これはリテラルである必要はありません。

実際には状況に応じて動作し、サンプルをコンパイルし、.dllとして配布できる2番目の方法があります。これを参照して、実際のファイルにアクセスすることなく直接使用することができます。ドキュメントの末尾にあるUsing the JSON Provider in a Libraryセクションを参照してください。

設定ファイルでjsonを参照しようとしていませんでした。

Answer 2

私はあなたがソース管理に保管することを助言し、あなたは、共通のソース管理リポジトリの外に作業していると仮定すると、プロジェクトのルートにそれを相対パスになるだろう。

いずれか、またはパブリックURLでサンプルをホストします。 （私は実際にはこれをお勧めしません。なぜなら、あなたのソースリポジトリにそれを含めればバージョン管理が可能になり、あなたのデータを公開しないからです）。