windoof :: Handle -> IO T.Text
windoof h = do hSetNewlineMode h universalNewlineMode
               hSetEncoding h latin1
               T.hGetContents h
windoof :: Handle -> IO T.Text
windoof h = do hSetNewlineMode h universalNewlineMode
               hSetEncoding h latin1
               T.hGetContents h
windoof h = do hSetNewlineMode h universalNewlineMode
               hSetEncoding h latin1
               T.hGetContents h