debach

## CqrsEventSourcing.linq
// adapted from https://github.com/gregoryyoung/m-r/blob/master/SimpleCQRS/CommandHandlers.cs
// actual code https://github.com/thinkbeforecoding/m-r/tree/FSharp/FsSimpleCQRS

module Commands =
    //[<Abstract>]

    type DeactivateInventoryItem =
        {
            InventoryItemId: Guid
            OriginalVersion: int // version I'm acting on, for checking to make sure my change only fires if the data the change was based on is still unchanged

## Aggregate.hs
{-# LANGUAGE TypeFamilies #-}

import Data.Function (on)
import Control.Applicative

data EventData e = EventData {
    eventId :: Int,
    body :: Event e
}
	// adapted from https://github.com/gregoryyoung/m-r/blob/master/SimpleCQRS/CommandHandlers.cs
	// actual code https://github.com/thinkbeforecoding/m-r/tree/FSharp/FsSimpleCQRS

	module Commands =
	//[<Abstract>]

	type DeactivateInventoryItem =
	{
	InventoryItemId: Guid
	OriginalVersion: int // version I'm acting on, for checking to make sure my change only fires if the data the change was based on is still unchanged
	{-# LANGUAGE TypeFamilies #-}

	import Data.Function (on)
	import Control.Applicative

	data EventData e = EventData {
	eventId :: Int,
	body :: Event e
	}