Add evil workaround for CPP comment indentation

2016-08-04 11:15:33 +02:00 · 2016-08-04 11:15:33 +02:00 · fb2483242a
parent 8b0300df83
commit fb2483242a
1 changed files with 4 additions and 1 deletions
--- a/src/Language/Haskell/Brittany/BriLayouter.hs
+++ b/src/Language/Haskell/Brittany/BriLayouter.hs
@ -1168,7 +1168,10 @@ layoutBriDocM = \case
          priors `forM_` \( ExactPrint.Types.Comment comment _ _
                          , ExactPrint.Types.DP (y, x)
                          ) -> do
-            layoutMoveToCommentPos y x
+            -- evil hack for CPP:
+            case comment of
+              ('#':_) -> layoutMoveToCommentPos y (-999)
+              _       -> layoutMoveToCommentPos y x
            -- fixedX <- fixMoveToLineByIsNewline x
            -- replicateM_ fixedX layoutWriteNewline
            -- layoutMoveToIndentCol y