We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3050179 commit 778cf9aCopy full SHA for 778cf9a
src/PlutusConfig/Base.hs
@@ -138,7 +138,7 @@ portSpec = fromEnum <$> customSpec "port" naturalSpec Right
138
@caseAgnosticAtomSpec "Yes"@ will catch @yes@ and @YEs@.
139
-}
140
caseAgnosticAtomSpec :: Text -> ValueSpec ()
141
-caseAgnosticAtomSpec tag = customSpec "case insensitive atom" anyAtomSpec $
+caseAgnosticAtomSpec tag = customSpec ("case insensitive `" <> tag <> "`") anyAtomSpec $
142
\t ->
143
if Text.toLower t == Text.toLower tag
144
then Right ()
0 commit comments