From eeebf667b7aa10539439792537a18d75c58c4bff Mon Sep 17 00:00:00 2001 From: Cedd Burge Date: Tue, 18 May 2021 21:29:35 +0100 Subject: [PATCH] Run elm-format --- .../concept/valentines-day/.meta/Exemplar.elm | 40 +++++++++++-------- .../valentines-day/src/ValentinesDay.elm | 1 + 2 files changed, 24 insertions(+), 17 deletions(-) diff --git a/exercises/concept/valentines-day/.meta/Exemplar.elm b/exercises/concept/valentines-day/.meta/Exemplar.elm index 4a88ef96..19a3c82f 100644 --- a/exercises/concept/valentines-day/.meta/Exemplar.elm +++ b/exercises/concept/valentines-day/.meta/Exemplar.elm @@ -1,39 +1,45 @@ module ValentinesDay exposing (..) -type Approval = - Yes + +type Approval + = Yes | No | Maybe -type Cuisine = - Korean + +type Cuisine + = Korean | Turkish -type Genre = - Crime + +type Genre + = Crime | Horror | Romance | Thriller -type Activity = - BoardGame + +type Activity + = BoardGame | Chill | Movie Genre | Restaurant Cuisine + rateActivity : Activity -> Approval rateActivity activity = case activity of - Restaurant Korean -> + Restaurant Korean -> Yes - - Restaurant Turkish -> + + Restaurant Turkish -> Maybe - - Movie Romance -> + + Movie Romance -> Yes - - Movie _ -> + + Movie _ -> + No + + _ -> No - - _ -> No diff --git a/exercises/concept/valentines-day/src/ValentinesDay.elm b/exercises/concept/valentines-day/src/ValentinesDay.elm index 9e89c4ed..65f05bbe 100644 --- a/exercises/concept/valentines-day/src/ValentinesDay.elm +++ b/exercises/concept/valentines-day/src/ValentinesDay.elm @@ -1,4 +1,5 @@ module ValentinesDay exposing (..) + rateActivity activity = Debug.todo "implement this function and create a type annotation"