Runner.hs thrown away as well

a-machine.cabal

@@ -4,7 +4,7 @@ cabal-version: 1.12
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 6daea2527be2f9b0d068d105f005ab225593979b931c1019c4b1af07de9bcafb
+-- hash: d968a1a9a5e81d363b5079576119931101303aacdd71d6d9c1cd947d38a06d99
 
 name:           a-machine
 version:        0.1.0.0
@@ -28,7 +28,6 @@ source-repository head
 library
   exposed-modules:
       Machine
-      Runner
   other-modules:
       Paths_a_machine
   hs-source-dirs:

app/Main.hs

@@ -5,8 +5,8 @@ import System.IO (readFile)
 import Control.Exception (try, SomeException)
 import Data.ByteString.Lazy.Char8 (pack)
 import Data.Aeson (eitherDecode)
+
 import Machine
-import Runner
 
 usage :: String
 usage = "Usage: ./a-machine desc.json tape\nwhere:\n\t- 'desc.json' is a json encoded file containing a valid machine description\n\t- 'tape' is a string of instructions from the machine alphabet"

src/Machine.hs

@@ -106,3 +106,17 @@ buildState tape_content initial_state = do
         pos=0,
         nextTransition=initial_state
     })
+
+-- NEEDS:
+-- - check if nextTransition in finals
+--   - Right State
+-- - Execute/check if transition exists
+--   - Left "error blabla"
+-- - Move pos
+--   - Left "Stay on the dancefloor"
+-- - Tail recursion
+-- State might get bigger depending on how we handle bonuses (keeping history, counting iterations...)
+
+-- TO DO
+runMachine :: Machine -> State -> Either String State
+runMachine machine state = Left $ "It's ALIIIIIVE:\n" ++ (show machine) ++ "\n" ++ (show state)