conklech

{-# LANGUAGE GeneralizedNewtypeDeriving, FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses, FunctionalDependencies #-}

module SeerA (SeerA, runSeerA, see, send, contact) where

import Control.Applicative
import Control.Applicative.Trans
import Data.Functor.Constant
import Data.Functor.Product
import Data.Monoid (Monoid, mempty, (<>), Sum(..))

conklech

#r @"Casemap.dll" // Generated from casemap.exe with tlbimp.exe
#r @"StdVCL.dll"
open System.Runtime.InteropServices

let getFieldRows (data : Casemap.IDataSet) (field : Casemap.IDataField2) =
    let userLocation = data.BookmarkCreate()
    data.MoveFirst ()
    [ yield field.Value
      while data.MoveNext() do
         yield field.Value