futhark fmt: strip trailing whitespace from comments.

diku-dk · Nov 7, 2024 · 4c3920d · 4c3920d
1 parent dc26885
commit 4c3920d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Futhark/Fmt/Monad.hs b/src/Futhark/Fmt/Monad.hs
@@ -393,7 +393,7 @@ sepLine s = sep (s <> space <|> hardline <> s)
 comment :: T.Text -> Fmt
 comment c = do
   modify (\s -> s {lastOutput = Just Line})
-  pure $ P.annotate commentStyle (P.pretty c) <> P.line
+  pure $ P.annotate commentStyle (P.pretty (T.stripEnd c)) <> P.line
 
 -- In order to handle trailing comments its VERY important to
 -- evaluate the seperator after each element in the list.

diff --git a/tests_fmt/comment.fut b/tests_fmt/comment.fut
@@ -2,7 +2,7 @@
 -- -p '/Comparing Tokens of uniqueness\/uniqueness6.fut/'
 -- continuing
 
--- another comment
+-- another comment   
 
 def f x = x + 2