Haskell源文件用括号替换缩进

Question

我正在尝试使用显式括号和分号替换Haskell源文件中的缩进，同时保留空格和注释。例如，输入

module Main where

   import System.IO

   f x = x

   main = print (f 5)

我希望

module Main where {

   import System.IO;

   f x = x;

   main = print (f 5)
}

我在一篇论文中读到haskell-src-exts有一台漂亮的打印机，但省略了评论和空白;有没有办法使用该库，或者我可以使用的其他技术？