
-- | This module contains rule types that have special behaviour in some way.
--   Everything in this module is a hack.
module Development.Shake.Internal.Special(
    specialAlwaysRebuilds,
    specialIsFileKey
    ) where

import Development.Shake.Internal.Value
import Data.Typeable


specialAlwaysRebuilds :: Value -> Bool
specialAlwaysRebuilds v = con == "FileA" && show v == "File {mod=NEQ,size=NEQ,digest=NEQ}"
    where con = show $ fst $ splitTyConApp $ typeValue v


specialIsFileKey :: TypeRep -> Bool
specialIsFileKey t = con == "FileQ"
    where con = show $ fst $ splitTyConApp t


-- | This module contains rule types that have special behaviour in some way.
--   Everything in this module is a hack.
module Development.Shake.Internal.Special(
    specialAlwaysRebuilds,
    specialIsFileKey
    ) where

import Development.Shake.Internal.Value
import Data.Typeable


specialAlwaysRebuilds :: Value -> Bool
specialAlwaysRebuilds v = False


specialIsFileKey :: TypeRep -> Bool
specialIsFileKey t = con == "FileQ"
    where con = show $ fst $ splitTyConApp t

Remove the remaining special lint test
Remove the remaining special lint test
