cabal-testsuite/PackageTests/SetupHooks/SetupHooksMissingRuleRes/SetupHooks.hs

   1 {-# LANGUAGE DuplicateRecordFields #-}
   2 {-# LANGUAGE OverloadedStrings #-}
   3 {-# LANGUAGE StaticPointers #-}
   4
   5 module SetupHooks where
   6
   7 import Distribution.Simple.LocalBuildInfo (interpretSymbolicPathLBI)
   8 import Distribution.Simple.SetupHooks
   9 import Distribution.Utils.Path (makeRelativePathEx)
  10
  11 import qualified Data.List.NonEmpty as NE ( NonEmpty(..) )
  12
  13 setupHooks :: SetupHooks
  14 setupHooks =
  15   noSetupHooks
  16     { buildHooks =
  17         noBuildHooks
  18           { preBuildComponentRules = Just $ rules (static ()) missingResRules
  19           }
  20     }
  21
  22 missingResRules :: PreBuildComponentInputs -> RulesM ()
  23 missingResRules (PreBuildComponentInputs { localBuildInfo = lbi, targetInfo = tgt }) = do
  24   let clbi = targetCLBI tgt
  25       autogenDir = autogenComponentModulesDir lbi clbi
  26       action = mkCommand (static Dict) (static (\ _ -> return ())) ()
  27   registerRule_ "r" $
  28     staticRule action
  29       [ ]
  30       ( Location autogenDir (makeRelativePathEx "G.hs") NE.:| [] )