Further debugging

yesodweb · Aug 21, 2024 · 5b5f8e2 · 5b5f8e2
1 parent b339766
commit 5b5f8e2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Text/Shakespeare/I18N.hs b/Text/Shakespeare/I18N.hs
@@ -183,7 +183,7 @@ mkMessageCommon genType prefix postfix master dt rawFolder lang = do
                                 Right x -> x
                  dt0 = intercalate " " dt1
                  master' | cxt0 == [] = master
-                         | otherwise = intercalate " " . fst $  -- This variant probably causes errors while testing.
+                         | otherwise = concat . take 1 . fst $  -- This variant probably causes errors while testing -- Changed for debugging purposes from interacale \" \" . fst
                                          (case (parse parseName "" master) of
                                             Left err  -> error $ show err
                                             Right x -> x)