Skip to content

Commit 778cf9a

Browse files
author
Aleksandr Penskoi
committed
Fix doc string for caseAgnosticAtomSpec
1 parent 3050179 commit 778cf9a

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/PlutusConfig/Base.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -138,7 +138,7 @@ portSpec = fromEnum <$> customSpec "port" naturalSpec Right
138138
@caseAgnosticAtomSpec "Yes"@ will catch @yes@ and @YEs@.
139139
-}
140140
caseAgnosticAtomSpec :: Text -> ValueSpec ()
141-
caseAgnosticAtomSpec tag = customSpec "case insensitive atom" anyAtomSpec $
141+
caseAgnosticAtomSpec tag = customSpec ("case insensitive `" <> tag <> "`") anyAtomSpec $
142142
\t ->
143143
if Text.toLower t == Text.toLower tag
144144
then Right ()

0 commit comments

Comments
 (0)