Purge Example.Format

2 files changed, 1 insertions, 11 deletions

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