Shake Exception Test

ShakeExceptionTest.hs

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

main :: IO ()
main = do
  print "Starting..."
  withArgs ["--exception"] (shakeArgs shakeOptions myRules) `catch` things
  where
    things :: ShakeException -> IO ()
    things e = do
      hPutStrLn stderr "--Exception--"
      hPutStrLn stderr $ show $ typeOf e
      hPutStrLn stderr $ (++) "T: " $ shakeExceptionTarget e
      hPutStrLn stderr $ (++) "S: " $ concat $ shakeExceptionStack e
      hPutStrLn stderr $ (++) "I: " $ show $ shakeExceptionInner e

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

  "boogey-man" ~> do
    need ["real"]
    cmd "echo hey"

  "real" ~> do
    need ["fake"]
    cmd "echo real"

  "fake" ~> do
    cmd "does-not-exist"