Changeset 4870

Timestamp:

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

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* clean some warnings

Location:

src/Pugs

Files:

• Internals.hs (modified) (1 diff)
• Prim/Match.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]

src/Pugs/Prim/Match.hs

@@ -179 +179 @@
 
 rxSplit_n :: VRule -> String -> Int -> Eval [Val]
-rxSplit_n _ [] n = return []
+rxSplit_n _ [] _ = return []
 rxSplit_n rx str n = do
     match <- str `doMatch` rx