Cleanup syntax

tomahawkins · Feb 26, 2011 · 6a00ec1 · 6a00ec1
1 parent 5066d30
commit 6a00ec1
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/Language/Atom/UeMap.hs b/Language/Atom/UeMap.hs
@@ -229,7 +229,6 @@ listOp es code = do
 maybeUpdate :: UeElem -> UeState Hash
 maybeUpdate e = do
   st <- get
---  case getHash e (snd st) of
   case getHash e (M.assocs $ snd st) of
     Nothing -> update e st
     Just h -> return h