remove strictness

1b51061d · Mart Lubbers · 8397951e · 1b51061d
Commit 1b51061d authored Mar 20, 2017 by Mart Lubbers
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

iTasksTTY.icl iTasksTTY.icl +1 -1

No files found.
--- a/iTasksTTY.icl
+++ b/iTasksTTY.icl
@@ -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