diff options
author | Péter Diviánszky <divipp@gmail.com> | 2016-05-24 19:20:42 +0200 |
---|---|---|
committer | Péter Diviánszky <divipp@gmail.com> | 2016-05-24 19:20:42 +0200 |
commit | ac41cbea6ca348e662cf8996d2b7127066825af5 (patch) | |
tree | 60c8455bc6a83c88a2f1fd8ebc54db3f849c4037 /prototypes/Inspector.hs | |
parent | 2fcc441833425f2e013c43fbfd90e0ef2cb67422 (diff) |
refactoring: first part of env implementation
Diffstat (limited to 'prototypes/Inspector.hs')
-rw-r--r-- | prototypes/Inspector.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/prototypes/Inspector.hs b/prototypes/Inspector.hs index 663594f8..b725294d 100644 --- a/prototypes/Inspector.hs +++ b/prototypes/Inspector.hs | |||
@@ -92,7 +92,7 @@ main = do | |||
92 | (LeftArrow, st@(_, _:_:_)) -> cycle' $ iterate goLeft st !! 100 | 92 | (LeftArrow, st@(_, _:_:_)) -> cycle' $ iterate goLeft st !! 100 |
93 | (RightArrow, st@(_:_, _)) -> cycle' $ iterate goRight st !! 100 | 93 | (RightArrow, st@(_:_, _)) -> cycle' $ iterate goRight st !! 100 |
94 | (IntArg n, _) -> cycle' ([], stepList $ t' n) | 94 | (IntArg n, _) -> cycle' ([], stepList $ t' n) |
95 | (ProgramChange, _) -> cycle' ([], stepList $ t'' 0) | 95 | (ProgramChange, _) -> cycle' ([], stepList $ test) --t'' 0) |
96 | _ -> cycle False st | 96 | _ -> cycle False st |
97 | 97 | ||
98 | cycle' st@(h, (_, x): _) = do | 98 | cycle' st@(h, (_, x): _) = do |