diff --git a/config.json b/config.json
index cdf229786..701554ef9 100644
--- a/config.json
+++ b/config.json
@@ -1433,6 +1433,11 @@
       "slug": "booleans",
       "name": "Booleans"
     },
+    {
+      "uuid": "9f819455-c3bd-4957-93a9-da70cd29afe5",
+      "slug": "guards",
+      "name": "Guards"
+    },
     {
       "uuid": "ef484ab5-d4d2-4d7c-b4b5-abb5920f916a",
       "slug": "lists",
diff --git a/exercises/concept/guessing-game/.meta/exemplar/src/GuessingGame.hs b/exercises/concept/guessing-game/.meta/exemplar/src/GuessingGame.hs
index b111a9e23..7e9398d88 100644
--- a/exercises/concept/guessing-game/.meta/exemplar/src/GuessingGame.hs
+++ b/exercises/concept/guessing-game/.meta/exemplar/src/GuessingGame.hs
@@ -1,8 +1,12 @@
 module GuessingGame (reply) where
 
-reply :: Int -> Int -> String
-reply n guess
+guess :: Int
+guess = 42
+
+reply :: Int -> String
+reply n
   | guess == n = "Correct"
-  | guess + 1 == n || guess - 1 == n = "So close!"
-  | guess < n = "Too low"
-  | guess > n = "Too high"
+  | guess + 1 == n || guess - 1 == n = "So close"
+  | guess < n = "Too high"
+  | guess > n = "Too low"
+  | otherwise = "Incorrect" -- catch-all clause to make pattern matching exhaustive
diff --git a/exercises/concept/kitchen-calculator/stack.yaml b/exercises/concept/kitchen-calculator/stack.yaml
index 115878212..1fe2deb93 100644
--- a/exercises/concept/kitchen-calculator/stack.yaml
+++ b/exercises/concept/kitchen-calculator/stack.yaml
@@ -1 +1 @@
-resolver: lts-20.18
+resolver: lts-22.44
diff --git a/exercises/concept/language-list/stack.yaml b/exercises/concept/language-list/stack.yaml
index 115878212..1fe2deb93 100644
--- a/exercises/concept/language-list/stack.yaml
+++ b/exercises/concept/language-list/stack.yaml
@@ -1 +1 @@
-resolver: lts-20.18
+resolver: lts-22.44