src/Example/Format.hs


1
2
3
4
5
6
7
8
9

module Example.Format where

import System.IO.Unsafe
import System.Process


{-# NOINLINE formatter #-}
formatter :: String -> String
formatter str = unsafePerformIO $ readProcess "hindent" ["--line-length", "100"] str