mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-12-18 07:01:48 +03:00
23 lines
449 B
Elm
23 lines
449 B
Elm
module NoInconsistentAliases.ModuleUse exposing (ModuleUse, mapFunction, new, range)
|
|
|
|
import Elm.Syntax.Range exposing (Range)
|
|
|
|
|
|
type ModuleUse
|
|
= ModuleUse String Range
|
|
|
|
|
|
new : String -> Range -> ModuleUse
|
|
new newFunction newRange =
|
|
ModuleUse newFunction newRange
|
|
|
|
|
|
mapFunction : (String -> a) -> ModuleUse -> a
|
|
mapFunction mapper (ModuleUse name _) =
|
|
mapper name
|
|
|
|
|
|
range : ModuleUse -> Range
|
|
range (ModuleUse _ useRange) =
|
|
useRange
|