mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-08-17 12:00:29 +03:00
Get rid of withMetadata in examples
This commit is contained in:
parent
64bcace002
commit
f7ed9b7642
@ -1017,13 +1017,13 @@ their name, like [`withExpressionEnterVisitor`](#withExpressionEnterVisitor),
|
||||
contextCreator : Rule.ContextCreator () Context
|
||||
contextCreator =
|
||||
Rule.initContextCreator
|
||||
(\metadata () ->
|
||||
(\isInSourceDirectories () ->
|
||||
{ hasTodoBeenImported = False
|
||||
, hasToStringBeenImported = False
|
||||
, isInSourceDirectories = Rule.isInSourceDirectories metadata
|
||||
, isInSourceDirectories = isInSourceDirectories
|
||||
}
|
||||
)
|
||||
|> Rule.withMetadata
|
||||
|> Rule.withIsInSourceDirectories
|
||||
|
||||
-}
|
||||
newModuleRuleSchemaUsingContextCreator : String -> ContextCreator () moduleContext -> ModuleRuleSchema {} moduleContext
|
||||
@ -1763,12 +1763,12 @@ you to request more information
|
||||
fromModuleToProject : Rule.ContextCreator ModuleContext ProjectContext
|
||||
fromModuleToProject =
|
||||
Rule.initContextCreator
|
||||
(\moduleKey metadata moduleContext ->
|
||||
{ moduleKeys = Dict.singleton (Rule.moduleNameFromMetadata metadata) moduleKey
|
||||
(\moduleKey moduleName moduleContext ->
|
||||
{ moduleKeys = Dict.singleton moduleName moduleKey
|
||||
}
|
||||
)
|
||||
|> Rule.withModuleKey
|
||||
|> Rule.withMetadata
|
||||
|> Rule.withModuleName
|
||||
|
||||
-}
|
||||
withModuleContextUsingContextCreator :
|
||||
@ -4987,11 +4987,8 @@ accumulate visitor ( previousErrors, previousContext ) =
|
||||
-- TODO Move this to a different module later on
|
||||
|
||||
|
||||
{-| Create a context based on some other context.
|
||||
Use functions like [`withMetadata`](#withMetadata) to request more information.
|
||||
|
||||
`from` will usually be a `projectContext` and `to` a `moduleContext`.
|
||||
|
||||
{-| Create a module context from a project context or the other way around.
|
||||
Use functions like [`withModuleName`](#withModuleName) to request more information.
|
||||
-}
|
||||
type ContextCreator from to
|
||||
= ContextCreator (AvailableData -> from -> to) RequestedData
|
||||
@ -5009,13 +5006,13 @@ type RequestedData
|
||||
contextCreator : Rule.ContextCreator () Context
|
||||
contextCreator =
|
||||
Rule.initContextCreator
|
||||
(\metadata () ->
|
||||
{ moduleName = Rule.moduleNameFromMetadata metadata
|
||||
(\moduleName () ->
|
||||
{ moduleName = moduleName
|
||||
|
||||
-- ...other fields
|
||||
}
|
||||
)
|
||||
|> Rule.withMetadata
|
||||
|> Rule.withModuleName
|
||||
|
||||
-}
|
||||
initContextCreator : (from -> to) -> ContextCreator from to
|
||||
|
Loading…
Reference in New Issue
Block a user