mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-12-26 03:04:48 +03:00
40 lines
1.3 KiB
Elm
40 lines
1.3 KiB
Elm
|
module NoInconsistentAliases.MissingAliasSet exposing (MissingAliasSet, empty, fold, insert, use)
|
||
|
|
|
||
|
|
import Dict exposing (Dict)
|
||
|
|
import Elm.Syntax.ModuleName exposing (ModuleName)
|
||
|
|
import NoInconsistentAliases.MissingAlias as MissingAlias exposing (MissingAlias)
|
||
|
|
import NoInconsistentAliases.ModuleUse exposing (ModuleUse)
|
||
|
|
|
||
|
|
|
||
|
|
type MissingAliasSet
|
||
|
|
= MissingAliasSet (Dict ModuleName MissingAlias)
|
||
|
|
|
||
|
|
|
||
|
|
empty : MissingAliasSet
|
||
|
|
empty =
|
||
|
|
MissingAliasSet Dict.empty
|
||
|
|
|
||
|
|
|
||
|
|
insert : MissingAlias -> MissingAliasSet -> MissingAliasSet
|
||
|
|
insert missingAlias (MissingAliasSet aliases) =
|
||
|
|
MissingAliasSet (MissingAlias.mapModuleName (\name -> Dict.insert name missingAlias aliases) missingAlias)
|
||
|
|
|
||
|
|
|
||
|
|
use : ModuleName -> ModuleUse -> MissingAliasSet -> MissingAliasSet
|
||
|
|
use moduleName moduleUse (MissingAliasSet aliases) =
|
||
|
|
case Dict.get moduleName aliases of
|
||
|
|
Nothing ->
|
||
|
|
MissingAliasSet aliases
|
||
|
|
|
||
|
|
Just missingAlias ->
|
||
|
|
let
|
||
|
|
missingAliasWithUse =
|
||
|
|
MissingAlias.withModuleUse moduleUse missingAlias
|
||
|
|
in
|
||
|
|
MissingAliasSet (Dict.insert moduleName missingAliasWithUse aliases)
|
||
|
|
|
||
|
|
|
||
|
|
fold : (MissingAlias -> a -> a) -> a -> MissingAliasSet -> a
|
||
|
|
fold folder start (MissingAliasSet aliases) =
|
||
|
|
aliases |> Dict.values |> List.foldl folder start
|