Idris2/tests/allschemes/scheme002/TermSize.idr

8 lines
152 B
Idris

import System.Term
main : IO ()
main = do
width <- getTermCols
height <- getTermLines
printLn "Success \{show $ width > 0} \{show $ height > 0}"