f626a98 · reflex-vty · git.iko.soy

git.iko.soy/reflex-vty

Fix examples again

commitf626a98823e5608d1a49f44b4b059fe976ac6675 authorAli Abrar <aliabrar@gmail.com> dateFri 26 Mar 2021, 01:49 (6 years ago) parente3df5c0

2 files changed+13−13

compare with develop

unifiedsplit

src-bin/Example/CPU.hs+8−8 src-bin/example.hs+5−5

src-bin/Example/CPU.hs+8−8

@@ -97,11 +97,11 @@ cpuStats

9797 , TriggerEvent t m

9898 , HasDisplayRegion t m

9999 , HasImageWriter t m

100− , MonadLayout t m

101− , MonadFocus t m

100+ , HasLayout t m

101+ , HasFocus t m

102102 , MonadNodeId m

103− , HasVtyWidgetCtx t m

104− , HasVtyInput t m

103+ , HasInput t m

104+ , HasFocusReader t m

105105 )

106106 => m ()

107107cpuStats = do

@@ -118,13 +118,13 @@ cpuStats = do

118118

119119chart

120120 :: ( MonadFix m

121− , MonadFocus t m

122− , MonadLayout t m

121+ , HasFocus t m

122+ , HasLayout t m

123123 , MonadNodeId m

124124 , HasImageWriter t m

125− , HasVtyInput t m

126− , HasVtyWidgetCtx t m

125+ , HasInput t m

127126 , HasDisplayRegion t m

127+ , HasFocusReader t m

128128 )

129129 => Dynamic t (Ratio Word64) -> m ()

130130chart pct = do

src-bin/example.hs+5−5

@@ -20,17 +20,17 @@ import Example.CPU

2020type VtyExample t m =

2121 ( MonadFix m

2222 , Reflex t

23− , HasVtyInput t m

24− , HasVtyWidgetCtx t m

23+ , HasInput t m

2524 , HasImageWriter t m

2625 , MonadNodeId m

2726 , HasDisplayRegion t m

2827 , HasFocus t m

28+ , HasFocusReader t m

2929 )

3030

3131type Manager t m =

32− ( MonadLayout t m

33− , MonadFocus t m

32+ ( HasLayout t m

33+ , HasFocus t m

3434 )

3535

3636data Example = Example_TextEditor

@@ -40,7 +40,7 @@ data Example = Example_TextEditor

4040 | Example_CPUStat

4141 deriving (Show, Read, Eq, Ord, Enum, Bounded)

4242

43−withCtrlC :: (Monad m, HasVtyInput t m, Reflex t) => m () -> m (Event t ())

43+withCtrlC :: (Monad m, HasInput t m, Reflex t) => m () -> m (Event t ())

4444withCtrlC f = do

4545 inp <- input

4646 f