diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs
index 5492d85bd..aeac0593e 100644
--- a/test/AlignmentSpec.hs
+++ b/test/AlignmentSpec.hs
@@ -182,7 +182,7 @@ spec = parallel $ do
       \ xs -> counts (numberedRows (xs :: [Join These Char])) `shouldBe` length . catMaybes <$> Join (unalign (runJoin <$> xs))
 
 data Child = Child
-  { childKey :: Char
+  { childKey :: String
   , childContentsLength :: Int
   , childMargin :: [Char]
   }