{-# LANGUAGE OverloadedStrings #-}

import Control.Concurrent (threadDelay)
import Control.Monad      (forever)
import Data.Configurator

main = do
  (config,_) <- autoReload autoConfig [Required "deadlock.cfg"]
  subscribe config "config.*" (\key val -> print (key,val))
  forever $ do
     threadDelay (2*10^6)
     putStrLn "a"
     threadDelay (2*10^6)
     putStrLn "b"