Commit 2e6d795f authored by bbr's avatar bbr
Browse files

biotope with append files, small change

parent 39956f4f
......@@ -85,7 +85,7 @@ addFile append gp ref f@(fn,cont) = do
(_,[]) -> do
writeIORef ref {files:=st->files++[f] | st}
showFile True ref (length (st->files)) gp
(xs,(y,yc):ys) -> if append
(xs,(_,yc):ys) -> if append
then do
writeIORef ref {files:=xs++ys++[(fn,yc++cont)] | st}
showFile True ref (length (st->files) - 1) gp
......
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