From a31a22d70739599eb44180c97d4b6ee0f87967a5 Mon Sep 17 00:00:00 2001 From: Matthias Fischmann Date: Fri, 24 Sep 2021 21:11:32 +0200 Subject: [PATCH] typo --- libs/hscim/src/Web/Scim/Schema/Common.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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