Merge remote-tracking branch 'origin/ts-fix-underflow' into cg-fullroute
commit0d98be9c5b49bda50fdc172a6b62477d80fc20ac
authorCale Gibbard <cgibbard@gmail.com>
dateWed 26 Jun 2019, 12:06 (7 years ago)
parent61fe3d8eb72347
lib/executable-config/lookup/src-ghcjs/Obelisk/ExecutableConfig/Lookup.hs+1−1
@@ -35,7 +35,7 @@ getConfigs = do
3535 where
3636 collToList es = do
3737 len <- getLength es
38− list <- traverse (item es) [0..len-1]
38+ list <- traverse (item es) $ if len == 0 then [] else [0..len-1]
3939 pure $ catMaybes list
4040 decodeOrFail x = case B64.decode (T.encodeUtf8 x) of
4141 Left e -> error ("Obelisk.ExecutableConfig.Lookup.getConfigs: error when decoding base64: " ++ e)