escape quotes in generated bootstrap flake

tek · Sep 24, 2023 · 010b699 · 010b699
1 parent afcd092
commit 010b699
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/packages/hix/lib/Hix/Bootstrap.hs b/packages/hix/lib/Hix/Bootstrap.hs
@@ -133,7 +133,7 @@ renderAttrs ind attrs =
 
 renderExpr :: Int -> Expr -> NonEmpty Text
 renderExpr ind = \case
-  ExprString s -> indent ind [[exon|"#{s}"|]]
+  ExprString s -> indent ind [[exon|"#{Text.replace "\"" "\\\"" s}"|]]
   ExprLit e -> [e]
   ExprList l -> "[" :| (indent (ind + 2) (toList . renderExpr ind =<< l)) ++ ["]"]
   ExprAttrs a -> case renderAttrs ind a of

diff --git a/packages/hix/test/Hix/Test/BootstrapTest.hs b/packages/hix/test/Hix/Test/BootstrapTest.hs
@@ -19,7 +19,7 @@ cabal =
 
 name:           red-panda
 version:        0.1.0.0
-synopsis:       A Haskell project
+synopsis:       A Haskell "project"
 description:    See https://hackage.haskell.org/package/red-panda/docs/RedPanda.html
 author:         Panda
 maintainer:     Panda
@@ -105,7 +105,7 @@ flakeTarget =
           license-file = "LICENSE";
           meta = {
             maintainer = "Panda";
-            synopsis = "A Haskell project";
+            synopsis = "A Haskell \"project\"";
           };
         };
         library = {