Permalink
Browse files

No record wildcards

  • Loading branch information...
feuerbach committed Feb 8, 2012
1 parent 99a34da commit 6d17cba69afd8836bace56010c45a285c8cb5d7c
Showing with 1 addition and 2 deletions.
  1. +1 −2 Text/Regex/Applicative/StateQueue.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE RecordWildCards #-}
module Text.Regex.Applicative.StateQueue
( StateQueue
, empty
@@ -32,7 +31,7 @@ insertUnique
-> a
-> StateQueue a
-> StateQueue a
-insertUnique i v sq@StateQueue {..} =
+insertUnique i v sq@StateQueue { ids = ids, elements = elements } =
if i `IntSet.member` ids
then sq
else sq { elements = v : elements

0 comments on commit 6d17cba

Please sign in to comment.