diff options
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 |