Dedupe items in a seq

dedupe.fs

let dedupe source =

  seq {
    let mutable previous = ValueNone
    for item in source do
      match previous with
      | ValueSome x when x = item -> ()
      | _ -> yield item
      previous <- ValueSome item
  }