anchor.diff:  ﻿module WorkflowLogic
   
   open Repository_types
  -
  -//Get
  -// let get_events (wfName : WorkflowName)(repos : Repository) : EventName list =
  -//    let events = 
  -//        match repos.workflows.TryFind(wfName) with
  -//        | Some(v) -> v
  -//        | None -> failwith "Noooooo" 
  -//    let (makeEventnames : EventName list) =
  -//        events |> List.map (fun (event) -> (wfName, event))
  -//    makeEventnames(events)
   
   //Create
   
  
positive.code:         | Some(v) -> v
          | None -> failwith "Workflow Does not exist" 
      Result.Ok({repos with workflows = Map.add wfName (event::events) repos.workflows})
      //add to event. Event is not a list?
  
  //Delete
  
  
negative.code:                 deleteEvents events
              | _ -> []
          | _ -> []
      Result.Ok({repos with workflows = Map.remove wfName repos.workflows})