git.iko.soy/reflex-vty
on develop help sign in
Fix warnings in example
db44ac2Ali Abrar
src-bin/example.hs+1−6
compare with develop
unifiedsplit
@@ -6,16 +6,11 @@
6{-# LANGUAGE ScopedTypeVariables #-}
6{-# LANGUAGE ScopedTypeVariables #-}
7{-# OPTIONS_GHC -threaded #-}
7{-# OPTIONS_GHC -threaded #-}
8
8
9−import Control.Monad
10import Control.Monad.Fix
9import Control.Monad.Fix
11−import Control.Monad.IO.Class
12−import Control.Monad.Trans.Reader
13import qualified Data.Text as T
10import qualified Data.Text as T
14−import Data.Time
15import qualified Graphics.Vty as V
11import qualified Graphics.Vty as V
16import Reflex
12import Reflex
17import Reflex.Vty
13import Reflex.Vty
18−import Reflex.Vty.Widget
19
14
20main :: IO ()
15main :: IO ()
21main =
16main =
@@ -35,7 +30,7 @@ testBoxes = do
35 let region1 = fmap (\(w,h) -> Region (w `div` 6) (h `div` 6) (w `div` 2) (h `div` 2)) size
30 let region1 = fmap (\(w,h) -> Region (w `div` 6) (h `div` 6) (w `div` 2) (h `div` 2)) size
36 region2 = fmap (\(w,h) -> Region (w `div` 4) (h `div` 4) (2 * (w `div` 3)) (2*(h `div` 3))) size
31 region2 = fmap (\(w,h) -> Region (w `div` 4) (h `div` 4) (2 * (w `div` 3)) (2*(h `div` 3))) size
37 pane region1 (constDyn False) . box singleBoxStyle $ debugInput
32 pane region1 (constDyn False) . box singleBoxStyle $ debugInput
38− pane region2 (constDyn True) . box singleBoxStyle $
33+ _ <- pane region2 (constDyn True) . box singleBoxStyle $
39 splitVDrag (hRule doubleBoxStyle) (box roundedBoxStyle $ multilineTextInput def) (box roundedBoxStyle dragTest)
34 splitVDrag (hRule doubleBoxStyle) (box roundedBoxStyle $ multilineTextInput def) (box roundedBoxStyle dragTest)
40 return ()
35 return ()
41
36