diff --git a/.codex.tags b/.codex.tags new file mode 100644 index 000000000..cfe3ed22e --- /dev/null +++ b/.codex.tags @@ -0,0 +1,2279 @@ +!_TAG_FILE_FORMAT 2 /extended format; --format=1 will not append ;" to lines/ +!_TAG_FILE_SORTED 1 /0=unsorted, 1=sorted, 2=foldcase/ +!_TAG_PROGRAM_NAME hasktags +(AutoRoute controller, Controller controller) => CanRoute controller /home/nhamilton/Desktop/dev/backend/IHP/IHP/RouterSupport.hs /^instance {-# OVERLAPPABLE #-} (AutoRoute controller, Controller controller) => CanRoute controller where$/;" i line:305 language:Haskell +(AutoRoute controller, Eq controller, KnownSymbol (GetTableName model), FromRow model, Show model, Generic model, HasField "id" model id, Show id, Show controller) => Controller controller /home/nhamilton/Desktop/dev/backend/IHP/IHP/GenericController.hs /^instance {-# OVERLAPPABLE #-} (AutoRoute controller, Eq controller, KnownSymbol (GetTableName model), FromRow model, Show model, Generic model, HasField "id" model id, Show id, Show controller) => Controller controller where$/;" i line:13 language:Haskell +(Eq (PrimaryKey tableName), ToField (PrimaryKey tableName), Show (PrimaryKey tableName), HasField "id" relatedModel (Id' tableName), relatedModel ~ GetModelByTableName (GetTableName relatedModel)) => CollectionFetchRelated (Id' tableName) relatedModel /home/nhamilton/Desktop/dev/backend/IHP/IHP/FetchRelated.hs /^instance ($/;" i line:51 language:Haskell +(FillParams rest record, KnownSymbol fieldName, SetField fieldName record fieldType, ParamReader fieldType, HasField "meta" record ModelSupport-MetaBag, SetField "meta" record ModelSupport-MetaBag) => FillParams (fieldName:rest) record /home/nhamilton/Desktop/dev/backend/IHP/IHP/Controller/Param.hs /^instance (FillParams rest record$/;" i line:497 language:Haskell +(FromField value, Typeable value) => FromField [value] /home/nhamilton/Desktop/dev/backend/IHP/IHP/ModelSupport.hs /^instance (FromField value, Typeable value) => FromField [value] where$/;" i line:583 language:Haskell +(HasField "id" record id, Eq id, Default id, KnownSymbol (GetModelName record), Show id) => ModelFormAction application record /home/nhamilton/Desktop/dev/backend/IHP/IHP/View/Form.hs /^instance ($/;" i line:56 language:Haskell +(HasPath action) => ConvertibleStrings action Html5-AttributeValue /home/nhamilton/Desktop/dev/backend/IHP/IHP/RouterSupport.hs /^instance {-# OVERLAPPABLE #-} (HasPath action) => ConvertibleStrings action Html5.AttributeValue where$/;" i line:446 language:Haskell +(KnownSymbol name, ToField value) => ToField (FieldWithUpdate name value) /home/nhamilton/Desktop/dev/backend/IHP/IHP/ModelSupport.hs /^instance (KnownSymbol name, ToField value) => ToField (FieldWithUpdate name value) where$/;" i line:538 language:Haskell +(ParamReader (ModelSupport-PrimaryKey model')) => ParamReader (ModelSupport-Id' model') /home/nhamilton/Desktop/dev/backend/IHP/IHP/Controller/Param.hs /^instance {-# OVERLAPS #-} (ParamReader (ModelSupport.PrimaryKey model')) => ParamReader (ModelSupport.Id' model') where$/;" i line:417 language:Haskell +(Read (PrimaryKey model), ParsePrimaryKey (PrimaryKey model)) => IsString (Id' model) /home/nhamilton/Desktop/dev/backend/IHP/IHP/ModelSupport.hs /^instance (Read (PrimaryKey model), ParsePrimaryKey (PrimaryKey model)) => IsString (Id' model) where$/;" i line:243 language:Haskell +(Show controller, AutoRoute controller) => HasPath controller /home/nhamilton/Desktop/dev/backend/IHP/IHP/RouterSupport.hs /^instance {-# OVERLAPPABLE #-} (Show controller, AutoRoute controller) => HasPath controller where$/;" i line:309 language:Haskell +(T-TypeError (T-Text "Looks like you forgot to pass a " :<>: (T-ShowType (GetModelByTableName record)) :<>: T-Text " id to this data constructor-")) => Eq (Id' (record :: T-Symbol) -> controller) /home/nhamilton/Desktop/dev/backend/IHP/IHP/ViewSupport.hs /^instance (T.TypeError (T.Text "Looks like you forgot to pass a " :<>: (T.ShowType (GetModelByTableName record)) :<>: T.Text " id to this data constructor.")) => Eq (Id' (record :: T.Symbol) -> controller) where$/;" i line:226 language:Haskell +(T-TypeError (T-Text "‘fetch‘ or ‘query‘ can only be used inside your controller actions- You have to call it from your controller action and then pass the result to the view-")) => ViewFetchHelpMessage /home/nhamilton/Desktop/dev/backend/IHP/IHP/ViewSupport.hs /^instance (T.TypeError (T.Text "‘fetch‘ or ‘query‘ can only be used inside your controller actions. You have to call it from your controller action and then pass the result to the view.")) => ViewFetchHelpMessage where$/;" i line:222 language:Haskell +(T-TypeError (T-Text "‘param‘ can only be used inside your controller actions-\nYou have to run the ‘param \"my_param\"‘ call inside your controller and then pass the resulting value to your view-\n\nController Example:\n\n module Web-Controller-Projects\n\n instance Controller ProjectsController where\n action ProjectsAction = do\n let showDetails = param \"showDetails\"\n render ProjectsView { showDetails }\n\nView Example:\n\n module Web-View-Projects-Index\n\n data ProjectsView = ProjectsView { showDetails :: Bool }\n instance View ProjectsView where\n html ProjectsView { -- } = [hsx|Show details: { showDetails}|]\n\n")) => ViewParamHelpMessage /home/nhamilton/Desktop/dev/backend/IHP/IHP/ViewSupport.hs /^instance (T.TypeError (T.Text "‘param‘ can only be used inside your controller actions.\\nYou have to run the ‘param \\"my_param\\"‘ call inside your controller and then pass the resulting value to your view.\\n\\nController Example:\\n\\n module Web.Controller.Projects\\n\\n instance Controller ProjectsController where\\n action ProjectsAction = do\\n let showDetails = param \\"showDetails\\"\\n render ProjectsView { showDetails }\\n\\nView Example:\\n\\n module Web.View.Projects.Index\\n\\n data ProjectsView = ProjectsView { showDetails :: Bool }\\n instance View ProjectsView where\\n html ProjectsView { .. } = [hsx|Show details: {showDetails}|]\\n\\n")) => ViewParamHelpMessage where$/;" i line:214 language:Haskell +(ToJSON (PrimaryKey a)) => ToJSON (Id' a) /home/nhamilton/Desktop/dev/backend/IHP/IHP/ModelSupport.hs /^instance (ToJSON (PrimaryKey a)) => ToJSON (Id' a) where$/;" i line:561 language:Haskell +(TypeError ('Text ("Use 'let x = param \"--\"' instead of 'x <- param \"--\"'" :: Symbol))) => ParamReader (IO param) /home/nhamilton/Desktop/dev/backend/IHP/IHP/Controller/Param.hs /^instance (TypeError ('Text ("Use 'let x = param \\"..\\"' instead of 'x <- param \\"..\\"'" :: Symbol))) => ParamReader (IO param) where$/;" i line:444 language:Haskell +(ValidateCanView' id' model, Fetchable id' model) => ValidateCanView' (Maybe id') model /home/nhamilton/Desktop/dev/backend/IHP/IHP/ValidationSupport/ValidateCanView.hs /^instance {-# OVERLAPS #-} (ValidateCanView' id' model, Fetchable id' model) => ValidateCanView' (Maybe id') model where$/;" i line:43 language:Haskell +(model ~ GetModelById (Id' table), GetTableName model ~ table, FilterPrimaryKey table) => Fetchable (Id' table) model /home/nhamilton/Desktop/dev/backend/IHP/IHP/QueryBuilder.hs /^instance (model ~ GetModelById (Id' table), GetTableName model ~ table, FilterPrimaryKey table) => Fetchable (Id' table) model where$/;" i line:482 language:Haskell +(model ~ GetModelById (Id' table), GetTableName model ~ table, FilterPrimaryKey table) => Fetchable (Maybe (Id' table)) model /home/nhamilton/Desktop/dev/backend/IHP/IHP/QueryBuilder.hs /^instance (model ~ GetModelById (Id' table), GetTableName model ~ table, FilterPrimaryKey table) => Fetchable (Maybe (Id' table)) model where$/;" i line:491 language:Haskell +(model ~ GetModelById (Id' table), value ~ Id' table, HasField "id" model value, ToField (PrimaryKey table), GetModelByTableName (GetTableName model) ~ model) => Fetchable [Id' table] model /home/nhamilton/Desktop/dev/backend/IHP/IHP/QueryBuilder.hs /^instance (model ~ GetModelById (Id' table), value ~ Id' table, HasField "id" model value, ToField (PrimaryKey table), GetModelByTableName (GetTableName model) ~ model) => Fetchable [Id' table] model where$/;" i line:503 language:Haskell +(model ~ GetModelByTableName table, KnownSymbol table) => Fetchable (QueryBuilder table) model /home/nhamilton/Desktop/dev/backend/IHP/IHP/QueryBuilder.hs /^instance (model ~ GetModelByTableName table, KnownSymbol table) => Fetchable (QueryBuilder table) model where$/;" i line:171 language:Haskell +(relatedModel ~ GetModelByTableName relatedTable) => CollectionFetchRelated (QueryBuilder relatedTable) relatedModel /home/nhamilton/Desktop/dev/backend/IHP/IHP/FetchRelated.hs /^instance (relatedModel ~ GetModelByTableName relatedTable) => CollectionFetchRelated (QueryBuilder relatedTable) relatedModel where$/;" i line:97 language:Haskell +$/;" fi line:48 language:Haskell +{view}<\/body>$/;" fi line:56 language:Haskell + /home/nhamilton/Desktop/dev/backend/IHP/IHP/ErrorController.hs /^$/;" fi line:340 language:Haskell +
$/;" fi line:14 language:Haskell +
$/;" fi line:33 language:Haskell +
$/;" fi line:99 language:Haskell +