@@ -1,8 +1,6 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE CPP #-}
2module Util.ScreenSize(getScreenWidth) where
2module Util.ScreenSize(getScreenWidth) where
6#ifndef CURSES
4#ifndef CURSES
8getScreenWidth :: IO Int
6getScreenWidth :: IO Int
@@ -11,11 +9,16 @@ getScreenWidth = return 80
13import UI.HSCurses.Curses
11import UI.HSCurses.Curses
12+import System.IO (hIsTerminalDevice, stdout)
15getScreenWidth :: IO Int
14getScreenWidth :: IO Int
16−getScreenWidth = do initScr
15+getScreenWidth = do term <- hIsTerminalDevice stdout
18− size <- scrSize
20+ size <- scrSize
20− return (snd size)
22+ return (snd size)