diff options
Diffstat (limited to 'Network/DNS/StateBinary.hs')
-rw-r--r-- | Network/DNS/StateBinary.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Network/DNS/StateBinary.hs b/Network/DNS/StateBinary.hs index 5e27b30..ffbf728 100644 --- a/Network/DNS/StateBinary.hs +++ b/Network/DNS/StateBinary.hs @@ -92,7 +92,7 @@ getNByteString len = lift . getLazyByteString . fromIntegral $ len ---------------------------------------------------------------- push :: Int -> Domain -> SGet () -push n d = modify (\m -> IM.insert n d m) +push n d = modify (IM.insert n d) pop :: Int -> SGet (Maybe Domain) pop n = IM.lookup n <$> get |