diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 14:47:31 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 14:47:31 +0100 |
| commit | fe5cd6ad6c61eb13ca99acd1b69cd09b84051404 (patch) | |
| tree | 4afc8cb5ae4171047d6af17082fb74d49c726abe /Handler/Common | |
| parent | 668961c90368b55a3409ae93b96e288f8ebe33a4 (diff) | |
| download | bar-fe5cd6ad6c61eb13ca99acd1b69cd09b84051404.tar bar-fe5cd6ad6c61eb13ca99acd1b69cd09b84051404.tar.gz bar-fe5cd6ad6c61eb13ca99acd1b69cd09b84051404.tar.bz2 bar-fe5cd6ad6c61eb13ca99acd1b69cd09b84051404.tar.xz bar-fe5cd6ad6c61eb13ca99acd1b69cd09b84051404.zip | |
Support types
Diffstat (limited to 'Handler/Common')
| -rw-r--r-- | Handler/Common/Types.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 | |||
| 7 | import Control.Lens | 7 | import Control.Lens |
| 8 | 8 | ||
| 9 | data InventoryState = InventoryState | 9 | data InventoryState = InventoryState |
| 10 | { stock :: [Entity Item] | 10 | { stock :: [WithType (Entity Item)] |
| 11 | , invFormState :: Maybe (FormState ItemId) | 11 | , invFormState :: Maybe (FormState ItemId) |
| 12 | } | 12 | } |
| 13 | 13 | ||
| 14 | data ReferenceState = ReferenceState | 14 | data ReferenceState = ReferenceState |
| 15 | { reference :: [Entity Reference] | 15 | { reference :: [WithType (Entity Reference)] |
| 16 | , refFormState :: Maybe (FormState ReferenceId) | 16 | , refFormState :: Maybe (FormState ReferenceId) |
| 17 | } | 17 | } |
| 18 | 18 | ||