Add annotations

This commit is contained in:
Jeroen Engels 2021-03-01 20:12:33 +01:00
parent 0d7eb30f4e
commit 6345bc8a90

View File

@ -104,11 +104,14 @@ buildTarget { unsafeFunction, moduleAlias } =
moduleName : List String moduleName : List String
moduleName = moduleName =
-- TODO Report an error if module names are invalid
List.reverse (List.drop 1 unsafeFunctionAsList) List.reverse (List.drop 1 unsafeFunctionAsList)
name : String name : String
name = name =
List.head unsafeFunctionAsList |> Maybe.withDefault "INVALID CONFIGURATION" List.head unsafeFunctionAsList
-- TODO Report an error instead
|> Maybe.withDefault "INVALID CONFIGURATION"
in in
{ moduleName = moduleName { moduleName = moduleName
, name = name , name = name