wip multi-line strings

tweag · Nov 26, 2024 · b57e236 · b57e236
1 parent 9e3f2ec
commit b57e236
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Ormolu/Printer/Meat/Declaration/Value.hs b/src/Ormolu/Printer/Meat/Declaration/Value.hs
@@ -618,6 +618,8 @@ p_hsExpr' isApp s = \case
     case lit of
       HsString (SourceText stxt) _ -> p_stringLit stxt
       HsStringPrim (SourceText stxt) _ -> p_stringLit stxt
+      -- TODO format specially, also at the type level
+      HsMultilineString (SourceText stxt) _ -> p_stringLit stxt
       r -> atom r
   HsLam _ variant mgroup ->
     p_lam isApp variant exprPlacement p_hsExpr mgroup