I'm a f# newbie and I just ran into this error with 1.9.1.8. This works fine with the standalone compiler.

I don't really have enough experience to track this down any further and I was wondering if someone might be able to point out what I'm doing wrong. Thanks in advance!

p.s. sorry for the formatting

#light

open System.Xml

open Idioms

open System.Collections.Generic

open Seq

open System.IO

type UdpData =

{

source_port : int

dest_port : int

length : int

}

type IpData =

{

source_host : string

dest_host : string

}

type UdpPacket =

{

timestamp : string

udp_info : UdpData

ip_info : IpData

data : byte[]

}

let UdpPacket_of_String (str:string) =

{ timestamp = ""; udp_info = { source_port=0; dest_port=0; length=str.Length };

ip_info = { source_host = ""; dest_host="" }; data=System.Text.Encoding.ASCII.GetBytes(str) }

let UdpPacket_of_Byte (str:byte[] ) =

{ timestamp = ""; udp_info = { source_port=0; dest_port=0; length=str.Length };

ip_info = { source_host = ""; dest_host="" }; data=str }

type ExtractedData =

| UdpPacket of UdpPacket

| Nil

let processStuff sequence =

Seq.iter (fun a ->

match a with

| UdpPacket packet -> ()

| _ -> ()) sequence