wild-bind-task-x11-0.2.0.4: test/ImportTest.hs

module Main
    ( main
    ) where

import           WildBind.Task.X11 (ActiveWindow, Binding, Binding', Indicator, NumPadLocked (..),
                                    NumPadUnlocked (..), wildNumPad, wildNumPad', (<>))

main :: IO ()
main = putStrLn "If it compiles, it's ok."

check_wildNumPad_unlocked :: Binding ActiveWindow NumPadUnlocked -> IO ()
check_wildNumPad_unlocked = wildNumPad

check_wildNumPad_locked :: Binding ActiveWindow NumPadLocked -> IO ()
check_wildNumPad_locked = wildNumPad