exe-config: Fix underflow in ghcjs config lookup
commiteb72347d0edffb23584be39eb7eeb9a987c9e436
authorTom Smalley <tfsmalley@gmail.com>
dateTue 25 Jun 2019, 16:27 (7 years ago)
parent86a9584
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)