Commit 8397951e authored by Mart Lubbers's avatar Mart Lubbers
Browse files

Gracefully quit

parent 27239bb5
...@@ -76,7 +76,7 @@ serialDeviceBackgroundTask enc dec rw iworld ...@@ -76,7 +76,7 @@ serialDeviceBackgroundTask enc dec rw iworld
= case read rw iworld of = case read rw iworld of
(Error e, iworld) = (Error $ exception "share couldn't be read", iworld) (Error e, iworld) = (Error $ exception "share couldn't be read", iworld)
//We need to stop //We need to stop
(Ok (_,_,True), iworld) = (Error $ exception "I have to stop...", iworld) (Ok (_,_,True), iworld) = (Ok (), iworld)
(Ok (r,s,ss), iworld) (Ok (r,s,ss), iworld)
# (Just (TTYd tty bgid)) = iworld.resources # (Just (TTYd tty bgid)) = iworld.resources
...@@ -90,6 +90,6 @@ serialDeviceBackgroundTask enc dec rw iworld ...@@ -90,6 +90,6 @@ serialDeviceBackgroundTask enc dec rw iworld
(Error e, iworld) = (Error $ exception "share couldn't be written", iworld) (Error e, iworld) = (Error $ exception "share couldn't be written", iworld)
(Ok _, iworld) = (Ok (), iworld) (Ok _, iworld) = (Ok (), iworld)
where where
writet :: [String] -> (*TTY -> *TTY) writet :: [String] -> (!*TTY -> !*TTY)
writet [] = id writet [] = id
writet [x:xs] = writet xs o TTYwrite x writet [x:xs] = writet xs o TTYwrite x
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