@@ -7,7 +7,6 @@ import Control.Applicative hiding ((<|>))
77import Control.Arrow
88import Control.Monad.RWS
99
10−import Data.Default (def)
1110import Data.Sequence (Seq, (<|) )
1211import qualified Data.Sequence as Seq
1312import Data.Foldable
@@ -18,8 +17,8 @@ type App = RWST Vty () (Seq String) IO
1817
1918main = do
2019 vty <- if True -- change to false for emacs-like input processing
21− then mkVty def
22− else mkVty (def { vmin = Just 2, vtime = Just 300 } )
20+ then mkVty defaultConfig
21+ else mkVty (defaultConfig { vmin = Just 2, vtime = Just 300 } )
2322 _ <- execRWST (vtyInteract False) vty Seq.empty
2423 shutdown vty
2524