src/System/IO/Terminal/IO/Windows.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{-|
Module      : System.IO.Terminal.IO.Windows
Copyright   : (c) UU, 2019
License     : MIT
Maintainer  : Tom Smeding
Stability   : experimental
Portability : Windows

Platform-specific submodule of "System.IO.Terminal.IO" that (does not yet) work on Windows.
-}
module System.IO.Terminal.IO.Windows where

import Control.Monad.IO.Unlift (MonadUnliftIO)


-- | Currently does nothing, i.e. just executes the body as-is. WINCH support
-- is currently unix-only.
withWinchHandler :: MonadUnliftIO m => IO () -> m a -> m a
withWinchHandler _ act = act