No more tabs

This commit is contained in:
Spencer Janssen
2007-12-22 05:04:39 +00:00
parent da6155ebac
commit 662eeb7e5f
10 changed files with 28 additions and 27 deletions

View File

@@ -43,7 +43,8 @@ focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s
listToStack :: Int -> [a] -> Stack a
listToStack n l = Stack t ls rs
where (t:rs) = drop n l
where
(t:rs) = drop n l
ls = reverse (take n l)