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