-- maybe the combination of a P.ProductID and GitConfig is a ProductRepository?
createRequiredDirectories :: P.ProductID -> GitConfig -> IO ()
createRequiredDirectories prodID gitConfig =
  createDirectoryIfMissing True (productDir prodID gitConfig)
createRequiredDirectories :: P.ProductID -> GitConfig -> IO ()
createRequiredDirectories prodID gitConfig =
  createDirectoryIfMissing True (productDir prodID gitConfig)
createRequiredDirectories prodID gitConfig =
  createDirectoryIfMissing True (productDir prodID gitConfig)