elm-review/tests/NoInconsistentAliases/BadAliasSet.elm

39 lines
1.1 KiB
Elm
Raw Normal View History

2020-08-09 19:55:15 +03:00
module NoInconsistentAliases.BadAliasSet exposing (BadAliasSet, empty, fold, insert, use)
import Dict exposing (Dict)
import NoInconsistentAliases.BadAlias as BadAlias exposing (BadAlias)
import NoInconsistentAliases.ModuleUse exposing (ModuleUse)
type BadAliasSet
= BadAliasSet (Dict String BadAlias)
empty : BadAliasSet
empty =
BadAliasSet Dict.empty
insert : BadAlias -> BadAliasSet -> BadAliasSet
insert badAlias (BadAliasSet aliases) =
BadAliasSet (BadAlias.mapName (\name -> Dict.insert name badAlias aliases) badAlias)
use : String -> ModuleUse -> BadAliasSet -> BadAliasSet
use name moduleUse (BadAliasSet aliases) =
case Dict.get name aliases of
Nothing ->
BadAliasSet aliases
Just badAlias ->
let
badAliasWithUse =
BadAlias.withModuleUse moduleUse badAlias
in
BadAliasSet (Dict.insert name badAliasWithUse aliases)
fold : (BadAlias -> a -> a) -> a -> BadAliasSet -> a
fold folder start (BadAliasSet aliases) =
aliases |> Dict.values |> List.foldl folder start