F>c     None3457FINA hack to avoid orphans. Name of the toJSON implementation for Entity a. Name of the fromJSON implementation for Entity a.Settings to be passed to the  function.#Which database backend we're using.When generating data types, each type is given a generic version- which works with any backend- and a type synonym for the commonly used backend. This is where you specify that commonly used backend.Create generic types that can be used with multiple backends. Good for reusable code, but makes error messages harder to understand. Default: True.6Prefix field names with the model name. Default: True. Generate ToJSON/FromJSON* instances for each model types. If it's Nothing*, no instances will be generated. Default: t Just EntityJSON { entityToJSON = 'keyValueEntityToJSON , entityFromJSON = 'keyValueEntityFromJSON } MInstead of generating normal field accessors, generator lens-style accessors.Default: False Since 1.3.1 Converts a quasi-quoted syntax into a list of entity definitions, to be used as input to the template haskell generation code (mkPersist). Apply   to . Apply   to . Same as  9, but uses an external file instead of a quasiquotation."Create data types and appropriate  instances for the given ,s. Works well with the persist quasi-quoter. >Implement special preprocessing on EntityDef as necessary for =. For example, strip out any fields marked as MigrationOnly. Create an MkPersistSettings with default values.Use the  SqlPersist backend.Same as . Since 1.1.1!/declare the key type and associated instances ", # and $6 instances are only generated for a Key with one field&produce code similar to the following:  instance PersistEntity e => PersistField e where toPersistValue = PersistMap $ zip columNames (map toPersistValue . toPersistFields) fromPersistValue (PersistMap o) = let columns = HM.fromList o in fromPersistValues $ map (name -> case HM.lookup name columns of Just v -> v Nothing -> PersistNull fromPersistValue x = Left $ "Expected PersistMap, received: " ++ show x sqlType _ = SqlString .Apply the given list of functions to the same  EntityDefs.*This function is useful for cases such as:Fshare [mkSave "myDefs", mkPersist sqlSettings] [persistLowerCase|...|] Save the  EntityDef!s passed in under the given name. Generate a % instance for the given  EntityDefs.Automatically creates a valid &+ instance for any datatype that has valid ' and (( instances. Can be very convenient for ) types.Automatically creates a valid &+ instance for any datatype that has valid * and + instances. For a datatype T* it generates instances similar to these:  instance PersistField T where toPersistValue = PersistByteString . L.toStrict . encode fromPersistValue = (left T.pack) . eitherDecodeStrict' <=< fromPersistValue instance PersistFieldSql T where sqlType _ = SqlString Creates a single function to perform all migrations for the entities defined here. One thing to be aware of is dependencies: if you have entities with foreign references, make sure to place those definitions after the entities they reference.,-./01234 56789:;<=>?@A BCDEFG  Value for HIJKLMNOPbackendQR entity namebackendSTUVWXYZ[\]!^_`abcdefghijklmnopqrstuvwxy'include PersistStore backend constraintz'include PersistStore backend constraint{'include PersistStore backend constraint|}~tablefield    },-./01234 56789:;<=>?@A BCDEFG HIJKLMNOPQRSTUVWXYZ[\]!^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,*+-./012342562789:;9:<=>>?@ABCDEFGHHIIJJKLLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~persi_8uA9xQjZVNMCKh6jSNIrcQDatabase.Persist.TH EntityJSON entityToJSONentityFromJSONMkPersistSettings mpsBackend mpsGenericmpsPrefixFields mpsEntityJSONmpsGenerateLenses persistWithpersistUpperCasepersistLowerCasepersistFileWith mkPersistmkPersistSettings sqlSettingssqlOnlySettingslensPTHpersistFieldFromEntitysharemkSavemkDeleteCascadederivePersistFieldderivePersistFieldJSON mkMigratepackPTHLift'persi_4Hn1p1cxwxTKhrq8bYFC9iDatabase.Persist.QuasiupperCaseSettingslowerCaseSettings$Database.Persist.Class.PersistEntity PersistEntityDatabase.Persist.Types.Base EntityDef fixEntityDef mkKeyTypeDecpathp_4qW9xznk5mC6aJZVVgmWEOWeb.PathPieces PathPiecehttpa_3kiLcpdXTUe4CYRpIoinpPWeb.HttpApiData.Internal ToHttpApiDataFromHttpApiData$Database.Persist.Class.DeleteCascade DeleteCascade#Database.Persist.Class.PersistField PersistFieldbaseGHC.ShowShowGHC.ReadReadGHC.EnumEnumaeson_7Kpihi3FCLhDsk0ZPNknzAData.Aeson.Types.ClassToJSONFromJSONlift'Dep depTargetdepSourceTabledepSourceField depSourceNullLensFTTypeConDescrFTKeyCon EntityMapEmbedEntityMapFieldSqlTypeExpFieldsSqlTypeExp SqlTypeExpSqlType'EntityDefSqlTypeExpparseReferencesstripIdforeignReference mEmbedded setEmbedFieldmkEntityDefSqlTypeExprecNameNoUnderscorerecName lowerFirst upperFirst dataTypeDec sumConstrName uniqueTypeDecmkUnique maybeIdTypebackendDataTypegenericDataTypeidTypedegenmkToPersistFieldsmkToFieldNamesmkUniqueToValues isNotNullmapLeft fieldErrormkFromPersistValuesfmapE mkLensClauses keyIdName keyIdText unKeyNameunKeyExpbackendT backendName keyConName keyConExp keyStringkeyText pkNewtype defaultIdType keyFields keyFieldName mkKeyToValues normalClausemkKeyFromValuesheadNote fromValuesmkEntity entityTextmkLensesmkForeignKeysCompositemaybeExpmaybeTyp mkUniqueKeys sqlTypeFunD typeInstanceDpersistFieldInstanceDpersistFieldSqlInstanceDliftTliftPairmkField maybeNullable filterConNamefilterConName'ftToType++mkJSONmkClassPmkEqualP notStrictisStrict instanceD $fLiftSqlType$fLiftPersistUpdate$fLiftPersistFilter$fLiftFieldType $fLiftDBName$fLiftHaskellName$fLifta $fLift'Map $fLift'[] $fLift'Text$fLiftForeignDef$fLiftCompositeDef$fLiftUniqueDef$fLiftFieldDef$fLiftEntityDef$fLiftEmbedFieldDef$fLiftEmbedEntityDef$fLiftReferenceDef$fLiftEntityDefSqlTypeExp$fLiftFieldSqlTypeExp$fLiftFieldsSqlTypeExp$fLiftSqlTypeExp