From 882276a845c33c06b235d9604cbfd5b55d784c7d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Sat, 13 Jun 2020 07:20:19 +0200
Subject: Coerce result

Fixes #45.
---
 tests/Test/StarWars/Data.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/Test/StarWars/Data.hs')

diff --git a/tests/Test/StarWars/Data.hs b/tests/Test/StarWars/Data.hs
index bfbe836..427371b 100644
--- a/tests/Test/StarWars/Data.hs
+++ b/tests/Test/StarWars/Data.hs
@@ -184,7 +184,7 @@ getFriends :: Character -> [Character]
 getFriends char = catMaybes $ liftA2 (<|>) getDroid getHuman <$> friends char
 
 getEpisode :: Int -> Maybe Text
-getEpisode 4 = pure "NEWHOPE"
+getEpisode 4 = pure "NEW_HOPE"
 getEpisode 5 = pure "EMPIRE"
 getEpisode 6 = pure "JEDI"
 getEpisode _ = empty
-- 
cgit v1.2.3