diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2016-01-24 13:36:08 +0100 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2016-01-24 13:37:22 +0100 |
commit | 6dd0c6aa90b7bcf02daa208a386c7a1965f6631a (patch) | |
tree | 379dae2c6687bb272f4a60982dc9f5b10ef7b7a9 /src/Model.hs | |
parent | ed23eb6104b036b2f144eb38e8c01a776a556552 (diff) |
Refactor into a model-view-update architecture.
Diffstat (limited to 'src/Model.hs')
-rw-r--r-- | src/Model.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/Model.hs b/src/Model.hs index bb3d1fe..a7a5304 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -6,6 +6,9 @@ module Model , drinkTimestamp , drinkLiters , DrinkDB(..) + , Model(..) + , drinkDB + , drinkDialogActive ) where import ClassyPrelude @@ -25,4 +28,11 @@ $(makeLenses ''Drink) $(AesonTH.deriveJSON (AesonTH.defaultOptions{AesonTH.fieldLabelModifier = toLower ∘ (drop 6)}) ''Drink) data DrinkDB = DrinkDB { unDrinkDB ∷ [Drink] } +$(makeLenses ''DrinkDB) $(AesonTH.deriveJSON AesonTH.defaultOptions ''DrinkDB) + +data Model = Model + { _drinkDB ∷ DrinkDB + , _drinkDialogActive ∷ Bool + } +$(makeLenses ''Model) |