fixup! X.Prelude: Add infinite stream type

xmonad · Oct 16, 2023 · 00a457f · 00a457f
1 parent 90f1643
commit 00a457f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/XMonad/Prelude.hs b/XMonad/Prelude.hs
@@ -490,8 +490,8 @@ instance IsList (Stream a) where
   type (Item (Stream a)) = a
 
   fromList :: [a] -> Stream a
-  fromList []       = errorWithoutStackTrace "TODO"
   fromList (x : xs) = x :~ fromList xs
+  fromList []       = errorWithoutStackTrace "XMonad.Prelude.Stream.fromList: Can't create stream out of finite list."
 
   toList :: Stream a -> [a]
   toList (x :~ xs) = x : toList xs