From 26512bb8d383594c48b64963ee06c6e3ff7a0207 Mon Sep 17 00:00:00 2001
From: Matthew Leon <ml@matthewleon.com>
Date: Tue, 30 May 2017 19:43:15 +0100
Subject: [PATCH] kill unnecessary code in StrMap singleton

---
 src/Data/StrMap.purs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Data/StrMap.purs b/src/Data/StrMap.purs
index 67714de3..dfb30c20 100644
--- a/src/Data/StrMap.purs
+++ b/src/Data/StrMap.purs
@@ -162,8 +162,7 @@ foreign import size :: forall a. StrMap a -> Int
 singleton :: forall a. String -> a -> StrMap a
 singleton k v = pureST do
   s <- SM.new
-  _ <- SM.poke s k v
-  pure s
+  SM.poke s k v
 
 foreign import _lookup :: forall a z. Fn4 z (a -> z) String (StrMap a) z