From 2a0564945d226ed4841e755132a9d10da87a8157 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Tue, 30 Dec 2014 17:39:05 +0100
Subject: move now into State

---
 test5.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index d8eb0b5..dc16740 100644
--- a/test5.hs
+++ b/test5.hs
@@ -47,6 +47,7 @@ data State = State
     , screenHeight :: Int
     , headBuffer :: [Trammel String]
     , treeBuffer :: [Trammel String]
+    , now :: UTCTime
     }
 
 
@@ -65,6 +66,7 @@ initState = do
         , screenHeight = 0
         , headBuffer = []
         , treeBuffer = []
+        , now = UTCTime (fromGregorian 1984 5 23) 49062
         }
 
 
@@ -142,8 +144,8 @@ winchHandler putEvent =
 run :: IO Event -> State -> IO ()
 run getEvent = rec where
     rec q = rec =<< do
-        now <- getCurrentTime
-        let q' = render now q
+        t <- getCurrentTime
+        let q' = render q { now = t }
         redraw q' >> getEvent >>= processEvent q'
 
 
@@ -175,8 +177,8 @@ processEvent q = \case
             }
 
 
-render :: UTCTime -> State -> State
-render now q@State{..} =
+render :: State -> State
+render q@State{..} =
     q { treeBuffer = newTreeBuf
       , headBuffer = newHeadBuf
       }
-- 
cgit v1.2.3