diff options
| author | Joris | 2021-05-29 19:24:41 +0200 |
|---|---|---|
| committer | Joris | 2021-05-29 19:24:41 +0200 |
| commit | d48cafebb277e4ad4b31e883cbe4f55eef9ea4a4 (patch) | |
| tree | 7f04fb49defa5fbc7984b0eee60bb7ce16a37ae2 /src/Indicator.purs | |
| parent | 4e3cd92a8063a70dab9ae0ccafd0552c78c6e005 (diff) | |
Rewrite in TypeScript
Diffstat (limited to 'src/Indicator.purs')
| -rw-r--r-- | src/Indicator.purs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/src/Indicator.purs b/src/Indicator.purs deleted file mode 100644 index 29daa4f..0000000 --- a/src/Indicator.purs +++ /dev/null @@ -1,20 +0,0 @@ -module Indicator - ( Indicator(..) - , className - , fromGlycemicLoad - ) where - -import Prelude - -data Indicator = Good | Medium | Bad - -className :: Indicator -> String -className Good = "good" -className Medium = "medium" -className Bad = "bad" - -fromGlycemicLoad :: Number -> Indicator -fromGlycemicLoad n - | n <= 8.0 = Good - | n <= 20.0 = Medium - | otherwise = Bad |