urbit/pkg/hs/urbit-termsize/app/Main.hs

module Main where

import Prelude

import Urbit.TermSize (liveTermSize)
import System.IO (getLine)

main :: IO ()
main = do
  init <- liveTermSize (putStrLn . ("New Size: " <>) . show)
  putStrLn ("Initial Size: " <> show init)
  _ <- getLine
  pure ()