Skip to content

Commit ed422bf

Browse files
committed
nub: Tweak type signature for mhs
1 parent 4af4999 commit ed422bf

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

Data/HashMap/Internal.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2933,9 +2933,10 @@ instance Hashable k => Exts.IsList (HashMap k v) where
29332933
toList = toList
29342934
#endif
29352935

2936-
nub :: Hashable a => [a] -> [a]
2936+
nub :: forall a. Hashable a => [a] -> [a]
29372937
nub = \l -> runST (nub_ l empty)
29382938
where
2939+
nub_ :: forall s. [a] -> HashMap a () -> ST s [a]
29392940
nub_ [] _seen = pure []
29402941
nub_ (x:xs) seen
29412942
| Just _ <- lookup' h x seen = nub_ xs seen

0 commit comments

Comments
 (0)