git.iko.soy/typeable/servant-reflex
on master help sign in
Make example a little more interesting
fda2a9cGreg Hale
exec/Example.hs+4
compare with master
unifiedsplit
@@ -26,10 +26,14 @@ run = do
26 b' :: Event t () <- button "Get int"
26 b' :: Event t () <- button "Get int"
27 res :: Event t (Maybe (), XhrResponse) <- getUnit b
27 res :: Event t (Maybe (), XhrResponse) <- getUnit b
28 res' :: Event t (Maybe Int, XhrResponse) <- getInt b'
28 res' :: Event t (Maybe Int, XhrResponse) <- getInt b'
29+ score <- foldDyn (+) 0 (fmapMaybe fst res')
29 r <- holdDyn "Waiting" $ leftmost [fmap (showXhrResponse . snd) res
30 r <- holdDyn "Waiting" $ leftmost [fmap (showXhrResponse . snd) res
30 ,fmap (showXhrResponse . snd) res'
31 ,fmap (showXhrResponse . snd) res'
31 ]
32 ]
32 dynText r
33 dynText r
34+ el "br" $ return ()
35+ text "Total: "
36+ display score
33
37
34showXhrResponse :: XhrResponse -> String
38showXhrResponse :: XhrResponse -> String
35showXhrResponse (XhrResponse stat stattxt rbmay rtmay) =
39showXhrResponse (XhrResponse stat stattxt rbmay rtmay) =