diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-01-28 20:13:38 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-01-28 20:13:38 +0100 |
| commit | 2c2b80264ae5777f0a759abb5571cbe68071c7e7 (patch) | |
| tree | fbe4cb7318ffbf48b4bc0842423d0d6a7a73718a | |
| parent | 3e04b03acd5e7138e0f6241133585f22ddb73060 (diff) | |
Purge Example.Format
| -rw-r--r-- | chad-fast.cabal | 2 | ||||
| -rw-r--r-- | src/Example.hs | 3 | ||||
| -rw-r--r-- | src/Example/Format.hs | 9 |
3 files changed, 1 insertions, 13 deletions
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 |