Commit 74e8621f authored by Peter Achten's avatar Peter Achten
Browse files

(PA): 'Save (As)' command did not write keyword 'Tape:' to file.

parent 98c21438
......@@ -40,7 +40,7 @@ instance <<< Transition where
instance <<< Tape where
(<<<) :: !*File !Tape -> *File
(<<<) file {content}
= file<<<LimitContents content
= file<<<"Tape:\n"<<<LimitContents content
where
LimitContents :: !String -> String
LimitContents cont
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment