Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Cleanup syntax

  • Loading branch information...
commit 6a00ec17cf27890458dce339bc78628356010174 1 parent 5066d30
@leepike leepike authored
Showing with 0 additions and 1 deletion.
  1. +0 −1  Language/Atom/UeMap.hs
View
1  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
Please sign in to comment.
Something went wrong with that request. Please try again.