module Cartel.Empty where
import qualified Cartel.Ast as A
class Empty a where
empty :: a
instance Empty A.Properties where
empty = A.Properties
{ A.prName = ""
, A.prVersion = A.Version []
, A.prCabalVersion = (1, 14)
, A.prBuildType = A.Simple
, A.prLicense = A.BSD3
, A.prLicenseFile = ""
, A.prLicenseFiles = []
, A.prCopyright = ""
, A.prAuthor = ""
, A.prMaintainer = ""
, A.prStability = ""
, A.prHomepage = ""
, A.prBugReports = ""
, A.prPackageUrl = ""
, A.prSynopsis = ""
, A.prDescription = []
, A.prCategory = ""
, A.prTestedWith = []
, A.prDataFiles = []
, A.prDataDir = ""
, A.prExtraSourceFiles = []
, A.prExtraDocFiles = []
, A.prExtraTmpFiles = []
}
instance Empty A.Cabal where
empty = A.Cabal
{ A.cProperties = empty
, A.cRepositories = []
, A.cFlags = []
, A.cLibrary = Nothing
, A.cExecutables = []
, A.cTestSuites = []
, A.cBenchmarks = []
}
instance Empty A.Repository where
empty = A.Repository
{ A.repoVcs = A.Git
, A.repoKind = A.Head
, A.repoLocation = ""
, A.repoBranch = ""
, A.repoTag = ""
, A.repoSubdir = ""
}
instance Empty A.Flag where
empty = A.Flag
{ A.flName = ""
, A.flDescription = ""
, A.flDefault = True
, A.flManual = False
}