Reverse-by-forward, and checking neural (it's wrong)

1 files changed, 9 insertions, 0 deletions

diff --git a/src/Example/Format.hs b/src/Example/Format.hs
new file mode 100644
index 0000000..994f431
--- /dev/null
+++ b/src/Example/Format.hs
@@ -0,0 +1,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