From 6dd0c6aa90b7bcf02daa208a386c7a1965f6631a Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 24 Jan 2016 13:36:08 +0100
Subject: Refactor into a model-view-update architecture.

---
 src/Model.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/Model.hs')

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)
-- 
cgit v1.2.3