Unsupported.hs

module OS.Window.Unsupported (
    Window, -- it's important that the implementation is hidden here, since it will vary between platforms
    findByName,
    setTitle,
    setIcon,
) where

import Data.ByteString (ByteString)
import Data.Text (Text)
import System.IO

newtype Window = Window ()
    deriving (Eq, Ord)

findByName ::
    -- | substring which must appear in the window title
    Text ->
    IO Window
findByName _name = do
    warn
    pure $ Window ()

setTitle :: Window -> Text -> IO ()
setTitle (Window ()) _t =
    warn

setIcon ::
    Window ->
    -- | PNG image
    ByteString ->
    IO ()
setIcon (Window ()) _img = do
    warn

warn :: IO ()
warn = hPutStrLn stderr "Warning: window utilities unsupported on this OS"