Renamed Prog to Jumpable
authorMichael Welch <michaelgwelch@gmail.com>
Mon, 20 Feb 2012 15:23:21 +0000 (09:23 -0600)
committerMichael Welch <michaelgwelch@gmail.com>
Mon, 20 Feb 2012 15:23:21 +0000 (09:23 -0600)
haskell/execute.hs
haskell/jumpable.hs [new file with mode: 0644]
haskell/prog.hs [deleted file]
haskell/program.hs

index 7409626..4b7adfa 100644 (file)
@@ -1,10 +1,10 @@
 module Execute where
 
-import Prog
+import Jumpable
 import Tape
 import Data.Char
 
-execute :: Prog a => Char -> a -> Tape -> IO Char -> (Char -> IO ()) 
+execute :: Jumpable a => Char -> a -> Tape -> IO Char -> (Char -> IO ()) 
            -> IO (a, Tape)
 execute '>' p t _ _ = return (p, moveF t)
 execute '<' p t _ _ = return (p, moveR t)
diff --git a/haskell/jumpable.hs b/haskell/jumpable.hs
new file mode 100644 (file)
index 0000000..bb9486a
--- /dev/null
@@ -0,0 +1,5 @@
+-- ! Defines methods for jumping forward and backward on a data structure.
+module Jumpable where
+class Jumpable a where
+    jumpF :: a -> a
+    jumpB :: a -> a
diff --git a/haskell/prog.hs b/haskell/prog.hs
deleted file mode 100644 (file)
index 11ae52d..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-module Prog where
-class Prog a where
-    jumpF :: a -> a
-    jumpB :: a -> a
index b1f3543..c789d00 100644 (file)
@@ -1,5 +1,5 @@
 module Program(createProgram, endOfProgram, fetch, run) where
-import Prog
+import Jumpable
 import Tape
 import Execute
 import Data.Char
@@ -53,6 +53,6 @@ run p t = do
             run p'' t'
 
 
-instance Prog Program where
+instance Jumpable Program where
     jumpF = jumpForward
     jumpB = jumpBackward