diff --git a/src/Roux/SchemaOrg.hs b/src/Roux/SchemaOrg.hs
index ce7142f..6b4ea57 100644
--- a/src/Roux/SchemaOrg.hs
+++ b/src/Roux/SchemaOrg.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Roux.SchemaOrg (
@@ -50,14 +49,14 @@ data SchemaOrgRecipe = SchemaOrgRecipe
     deriving stock (Eq, Show)
 
 -- | A schema.org Person (recipe author).
-data SchemaOrgPerson = SchemaOrgPerson
-    { soPersonName :: !Text
+newtype SchemaOrgPerson = SchemaOrgPerson
+    { soPersonName :: Text
     }
     deriving stock (Eq, Show)
 
 -- | A schema.org ImageObject (recipe image).
-data SchemaOrgImageObject = SchemaOrgImageObject
-    { soImageObjectUrl :: !Text
+newtype SchemaOrgImageObject = SchemaOrgImageObject
+    { soImageObjectUrl :: Text
     }
     deriving stock (Eq, Show)
 
@@ -258,7 +257,7 @@ buildIngredientSection :: [Text] -> Section
 buildIngredientSection ings
     | null ings = Section Nothing (SecStep (Step []) :| [])
     | otherwise =
-        let items = concatMap (\t -> [StepText (", "), StepText t]) ings
+        let items = concatMap (\t -> [StepText ", ", StepText t]) ings
             step = Step items
          in Section (Just "Ingredients") (SecStep step :| [])