Changeset 4870 for src/Pugs/Internals.hs

Timestamp:

06/20/05 16:10:43 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* clean some warnings

Files:

• src/Pugs/Internals.hs (modified) (1 diff)

src/Pugs/Internals.hs

@@ -154 +154 @@
 
 split_n :: (Eq a) => [a] -> [a] -> Int -> [[a]]
-split_n []  _ n  = internalError "splitting by an empty list"
+split_n [] _ _ = internalError "splitting by an empty list"
 split_n sep str n
    | n == 1 = [str]