C4L_MoveImplementations_WL1.fsx

// Remains unchanged
// Module ->string
let goto : Goto = fun m -> sprintf "GOTO %s" <| m.ToString()

// Replaced by next two (new) moves
// SampleData -> string
//let collect:Collect = fun s -> sprintf "CONNECT %i" <| s.Id

// New move
// Rank -> String
let collectNewSample : CollectNewSample = fun r -> sprintf "CONNECT %i" <| r

// New move
// DiagnosedSampleData -> string
let collectCloudSample : CollectCloudSample = fun s -> sprintf "CONNECT %i" <| s.Id

// New move
// UndiagnosedSampleData -> string
let anaylze : Analyze = fun s -> sprintf "CONNECT %i" <| s.Id

// Remains unchanged
// MoleculeType -> string
let gather : Gather = fun m -> sprintf "CONNECT %s" <| m.ToString()

// Changed SampleData to DiagnosedSampleData
// DiagnosedSampleData -> string
let produce : Produce = fun s -> sprintf "CONNECT %i" s.Id