mirror of
https://github.com/prometheus/alertmanager
synced 2025-02-16 18:47:10 +00:00
e768371a39
* Run elm-upgrade * Make compile * Update index.html * Upgrade tests * Finalize the upgrade * Optimize!
32 lines
676 B
Elm
32 lines
676 B
Elm
module Helpers exposing (isNotEmptyTrimmedAlphabetWord)
|
|
|
|
import String
|
|
|
|
|
|
isNotEmptyTrimmedAlphabetWord : String -> Bool
|
|
isNotEmptyTrimmedAlphabetWord string =
|
|
let
|
|
stringLength =
|
|
String.length string
|
|
in
|
|
stringLength
|
|
/= 0
|
|
&& String.length (String.filter isLetter string)
|
|
== stringLength
|
|
|
|
|
|
isLetter : Char -> Bool
|
|
isLetter char =
|
|
String.contains (String.fromChar char) lowerCaseAlphabet
|
|
|| String.contains (String.fromChar char) upperCaseAlphabet
|
|
|
|
|
|
lowerCaseAlphabet : String
|
|
lowerCaseAlphabet =
|
|
"abcdefghijklmnopqrstuvwxyz"
|
|
|
|
|
|
upperCaseAlphabet : String
|
|
upperCaseAlphabet =
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|