git.iko.soy/elk
on master help sign in
Fix bug in inferred Binary type for decodeFileOrFail in IO.readBinary
e7ca69fEvan Czaplicki
builder/src/File/IO.hs+2−5
compare with master
unifiedsplit
@@ -49,11 +49,8 @@ readBinary path =
49 else
49 else
50 do result <- Binary.decodeFileOrFail path
50 do result <- Binary.decodeFileOrFail path
51 case result of
51 case result of
52− Left _ ->
53− return Nothing
52+ Left _ -> return Nothing
54−
55− Right value ->
56− return value
53+ Right a -> return (Just a)
57
54
58
55
59
56