diff --git a/libs/hscim/src/Web/Scim/Schema/Common.hs b/libs/hscim/src/Web/Scim/Schema/Common.hs index 689ed69d49d..cca4131239e 100644 --- a/libs/hscim/src/Web/Scim/Schema/Common.hs +++ b/libs/hscim/src/Web/Scim/Schema/Common.hs @@ -99,7 +99,7 @@ jsonLower (Object o) = Object . HM.fromList . fmap lowerPair . HM.toList $ o where lowerPair (key, val) = (CI.foldCase key, jsonLower val) jsonLower (Array x) = Array (jsonLower <$> x) -jsonLower same@(String _) = same -- (only objetc attributes, not all texts in the value side of objects!) +jsonLower same@(String _) = same -- (only object attributes, not all texts in the value side of objects!) jsonLower same@(Number _) = same jsonLower same@(Bool _) = same jsonLower same@Null = same