makeProjectPathsAbsolute :: FilePath -> ProjectConfig -> ProjectConfig
makeProjectPathsAbsolute dir (ProjectConfig context rules) =
  ProjectConfig (fmap goBackendSpec context) (fmap goRule rules)
  where
    goBackendSpec = makeBackendSpecPathsAbsolute dir
    goRule = makeRulePathsAbsolute dir
makeProjectPathsAbsolute :: FilePath -> ProjectConfig -> ProjectConfig
makeProjectPathsAbsolute dir (ProjectConfig context rules) =
  ProjectConfig (fmap goBackendSpec context) (fmap goRule rules)
  where
    goBackendSpec = makeBackendSpecPathsAbsolute dir
    goRule = makeRulePathsAbsolute dir
makeProjectPathsAbsolute dir (ProjectConfig context rules) =
  ProjectConfig (fmap goBackendSpec context) (fmap goRule rules)
  where
    goBackendSpec = makeBackendSpecPathsAbsolute dir
    goRule = makeRulePathsAbsolute dir