Merge pull request #3011 from Melvar/simplify-screensize
Simplify getScreenWidth
commitdff4fcd8548c6ba955c01b0e491e0d7105fa5c6f
authorNiklas Larsson <metaniklas@gmail.com>
dateFri 4 Mar 2016, 09:22 (11 years ago)
parent94255f44814fe9
src/Util/ScreenSize.hs+1−9
@@ -1,14 +1,6 @@
11module Util.ScreenSize(getScreenWidth) where
22
33import System.Console.Terminal.Size (size, width)
4−import System.IO (hIsTerminalDevice, stdout)
54
65getScreenWidth :: IO Int
7−getScreenWidth = do term <- hIsTerminalDevice stdout
8− sz <- size
9− if term
10− then case sz of
11− Just w -> return $ width w
12− Nothing -> return 80
13− else return 80
14−
6+getScreenWidth = maybe 80 width `fmap` size