@@ -6,16 +6,11 @@
66{-# LANGUAGE ScopedTypeVariables #-}
77{-# OPTIONS_GHC -threaded #-}
88
9−import Control.Monad
109import Control.Monad.Fix
11−import Control.Monad.IO.Class
12−import Control.Monad.Trans.Reader
1310import qualified Data.Text as T
14−import Data.Time
1511import qualified Graphics.Vty as V
1612import Reflex
1713import Reflex.Vty
18−import Reflex.Vty.Widget
1914
2015main :: IO ()
2116main =
@@ -35,7 +30,7 @@ testBoxes = do
3530 let region1 = fmap (\(w,h) -> Region (w `div` 6) (h `div` 6) (w `div` 2) (h `div` 2)) size
3631 region2 = fmap (\(w,h) -> Region (w `div` 4) (h `div` 4) (2 * (w `div` 3)) (2*(h `div` 3))) size
3732 pane region1 (constDyn False) . box singleBoxStyle $ debugInput
38− pane region2 (constDyn True) . box singleBoxStyle $
33+ _ <- pane region2 (constDyn True) . box singleBoxStyle $
3934 splitVDrag (hRule doubleBoxStyle) (box roundedBoxStyle $ multilineTextInput def) (box roundedBoxStyle dragTest)
4035 return ()
4136