aboutsummaryrefslogtreecommitdiff
path: root/src/Model.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Model.hs')
-rw-r--r--src/Model.hs10
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)