Checking `Exception` type with `shakeArgs`

ShakeTry.hs

import Control.Exception
import Data.Typeable
import Development.Shake
import System.IO

main :: IO ()
main = do
  print "Starting..."
  shakeArgs shakeOptions myRules `catch` things
  where
    things (SomeException e) = hPutStrLn stderr $ show $ typeOf e

myRules :: Rules ()
myRules = do
  want ["boogey-man"]