From 59ce847a8ae8170cfb751f7bcd88b7f08bcfada8 Mon Sep 17 00:00:00 2001
From: Brian Hicks <brian@brianthicks.com>
Date: Mon, 5 Apr 2021 11:55:44 -0500
Subject: [PATCH] simplify name fuzzer

---
 tests/PlayerTest.elm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/tests/PlayerTest.elm b/tests/PlayerTest.elm
index f6d29cd..614cec6 100644
--- a/tests/PlayerTest.elm
+++ b/tests/PlayerTest.elm
@@ -32,13 +32,9 @@ playerFuzzer =
 
 nameFuzzer : Fuzzer String
 nameFuzzer =
-    let
-        chars =
-            Fuzz.intRange (Char.toCode 'a') (Char.toCode 'c')
-                |> Fuzz.map Char.fromCode
-    in
-    Fuzz.map2 (::) chars (Fuzz.list chars)
-        |> Fuzz.map String.fromList
+    Fuzz.intRange (Char.toCode 'a') (Char.toCode 'c')
+        |> Fuzz.map Char.fromCode
+        |> Fuzz.map String.fromChar
 
 
 decoderTest : Test