import Notify
import Protolude
import System.IO (getChar)

main :: IO ()
main = do
  putText "Hello"
  _state <-
    watch
      Config
      {pathToWatch = "./", relevantExtensions = [".hs"], debounceInSecs = 0}
      callback
      putText
  _ <- getChar
  pure ()

callback :: IO ()
callback = putText "Callback"