From 2c2b80264ae5777f0a759abb5571cbe68071c7e7 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 28 Jan 2025 20:13:38 +0100
Subject: Purge Example.Format

---
 chad-fast.cabal       | 2 --
 src/Example.hs        | 3 +--
 src/Example/Format.hs | 9 ---------
 3 files changed, 1 insertion(+), 13 deletions(-)
 delete mode 100644 src/Example/Format.hs

diff --git a/chad-fast.cabal b/chad-fast.cabal
index f15bf1d..737ff62 100644
--- a/chad-fast.cabal
+++ b/chad-fast.cabal
@@ -30,7 +30,6 @@ library
     -- CompileCu
     Data
     Example
-    Example.Format
     Example.GMM
     Example.Types
     ForwardAD
@@ -52,7 +51,6 @@ library
     deepseq,
     -- template-haskell,
     prettyprinter,
-    process,
     transformers,
     vector,
 
diff --git a/src/Example.hs b/src/Example.hs
index 795229c..6ce542e 100644
--- a/src/Example.hs
+++ b/src/Example.hs
@@ -18,7 +18,6 @@ import Language
 import Simplify
 
 import Debug.Trace
-import Example.Format
 import Example.Types
 
 
@@ -187,5 +186,5 @@ neuralGo =
         (primal', (((((), Just dlay1_1'), Just dlay2_1'), dlay3_1'), dinput_1')) -> (primal', dlay1_1', dlay2_1', dlay3_1', dinput_1')
         _ -> undefined
       (Value dinput_2 `SCons` Value dlay3_2 `SCons` Value dlay2_2 `SCons` Value dlay1_2 `SCons` SNil) = drevByFwd knownEnv neural argument 1.0
-  in trace (formatter (ppExpr knownEnv revderiv)) $
+  in trace (ppExpr knownEnv revderiv) $
      (primal, (dlay1_1, dlay2_1, dlay3_1, dinput_1), (dlay1_2, dlay2_2, dlay3_2, dinput_2))
diff --git a/src/Example/Format.hs b/src/Example/Format.hs
deleted file mode 100644
index 994f431..0000000
--- a/src/Example/Format.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-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
-- 
cgit v1.2.3-70-g09d2