json2nix: fix string quotation bug
This commit is contained in:
parent
d30a1093a3
commit
42758507b6
|
@ -38,6 +38,6 @@ json2Nix (A.Number n) = T.pack $ show n
|
||||||
json2Nix (A.Bool False) = "false"
|
json2Nix (A.Bool False) = "false"
|
||||||
json2Nix (A.Bool True) = "true"
|
json2Nix (A.Bool True) = "true"
|
||||||
json2Nix A.Null = "null"
|
json2Nix A.Null = "null"
|
||||||
json2Nix (A.String text) = T.concat [sep, text, sep]
|
-- Nixfmt will handle which quotation mark we are using anyway, so we
|
||||||
where
|
-- might as well just escape all "s and use them as string markers.
|
||||||
sep = if "\"" `T.isInfixOf` text then "\'\'" else "\""
|
json2Nix (A.String text) = T.concat ["\"", T.replace "\"" "\\\"" text, "\""]
|
||||||
|
|
Loading…
Reference in New Issue