diff options
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) |