Skip to content

GitLab

Commit 1b51061d authored by Mart Lubbers's avatar Mart Lubbers
Browse files

remove strictness

parent 8397951e
Hide whitespace changes
Inline Side-by-side
iTasksTTY.icl
View file @ 1b51061d
......@@ -90,6 +90,6 @@ serialDeviceBackgroundTask enc dec rw iworld
(Error e, iworld) = (Error $ exception "share couldn't be written", iworld)
(Ok _, iworld) = (Ok (), iworld)
where
writet :: [String] -> (!*TTY -> !*TTY)
writet :: [String] -> (*TTY -> *TTY)
writet [] = id
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