Win32-notify-0.2: examples/simple/simple.hs

module Main where

import System.IO
import System.Directory
import System.Win32.Notify

main :: IO ()
main = do
  watchManager <- initWatchManager
  home <- getHomeDirectory
  wd <- watchDirectory watchManager home isRecursive varieties handler
  print wd
  putStrLn "Listens to your home directory. Hit enter to terminate."
  getLine -- TODO: This hangs... why is that?
  killWatchManager watchManager
  putStrLn "Quitting."
  where
    isRecursive = False
    varieties = [Create, Delete, Modify, Move]
    handler :: Handler
    handler event = putStrLn $ show event