From fe5cd6ad6c61eb13ca99acd1b69cd09b84051404 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 15 Mar 2017 14:47:31 +0100 Subject: Support types --- Handler/Common/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Handler/Common') diff --git a/Handler/Common/Types.hs b/Handler/Common/Types.hs index 08653af..9150f16 100644 --- a/Handler/Common/Types.hs +++ b/Handler/Common/Types.hs @@ -7,12 +7,12 @@ import Import import Control.Lens data InventoryState = InventoryState - { stock :: [Entity Item] + { stock :: [WithType (Entity Item)] , invFormState :: Maybe (FormState ItemId) } data ReferenceState = ReferenceState - { reference :: [Entity Reference] + { reference :: [WithType (Entity Reference)] , refFormState :: Maybe (FormState ReferenceId) } -- cgit v1.2.3