github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

return -> pure

Browse Source
This commit is contained in:
Patrick Thomson 2018-03-23 15:59:12 -04:00
parent f777bd19c0
commit 5db5b7c5d7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Control/Abstract/Value.hs
View File

@ -173,7 +173,7 @@ instance ( Monad m
kvPair k = pure . injValue . Value.KVPair k
asPair k
| Just (Value.KVPair k v) <- prjValue k = return (k, v)
| Just (Value.KVPair k v) <- prjValue k = pure (k, v)
| otherwise = fail ("expected key-value pair, got " <> show k)
hash = pure . injValue . Value.Hash . fmap (injValue . uncurry Value.KVPair)