Don't check terminal size if we're not connected to one
commit67610bb1fe30a3d428c627c2af697501408e0927
authorEcho Nolan <echo@echonolan.net>
dateMon 15 Feb 2016, 16:34 (11 years ago)
parent3542d0a
src/Util/ScreenSize.hs+10−5
@@ -9,11 +9,16 @@ getScreenWidth = return 80
99#else
1010
1111import UI.HSCurses.Curses
12+import System.IO (hIsTerminalDevice, stdout)
1213
1314getScreenWidth :: IO Int
14−getScreenWidth = do initScr
15− refresh
16− size <- scrSize
17− endWin
18− return (snd size)
15+getScreenWidth = do term <- hIsTerminalDevice stdout
16+ if term
17+ then do
18+ initScr
19+ refresh
20+ size <- scrSize
21+ endWin
22+ return (snd size)
23+ else return 80
1924#endif