diff --git a/src/.ghci b/src/.ghci index d1da4d1..44a0883 100644 --- a/src/.ghci +++ b/src/.ghci @@ -1,3 +1,3 @@ :set stop :list :set prompt "\ESC[1;34m%s \ESC[0;35mλ>\ESC[m " -:load Push GP +:load Main diff --git a/src/.gitkeep b/src/.gitkeep deleted file mode 100644 index e69de29..0000000 diff --git a/src/Main.hs b/src/Main.hs index 8de7680..56457c9 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,6 +1,3 @@ -module Main where - -import Control.Exception (assert) import GP import Push diff --git a/src/Push.hs b/src/Push.hs index 627839b..348ec56 100644 --- a/src/Push.hs +++ b/src/Push.hs @@ -1,8 +1,9 @@ module Push where --- import Debug.Trace (trace, traceStack) import qualified Data.Map as Map +-- import Debug.Trace (trace, traceStack) + -- The exec stack must store heterogenous types, -- and we must be able to detect that type at runtime. -- One solution is for the exec stack to be a list of [Gene]. diff --git a/tests/Main.hs b/tests/Main.hs index 9637e45..fb115b6 100644 --- a/tests/Main.hs +++ b/tests/Main.hs @@ -1,5 +1,6 @@ import Control.Exception (assert) import qualified Data.Map as Map +import GP import Push import Test.Hspec import Test.Hspec.QuickCheck