@@ -35,7 +35,7 @@ getConfigs = do
36 collToList es = do
36 collToList es = do
37 len <- getLength es
37 len <- getLength es
38− list <- traverse (item es) [0..len-1]
38+ list <- traverse (item es) $ if len == 0 then [] else [0..len-1]
39 pure $ catMaybes list
39 pure $ catMaybes list
40 decodeOrFail x = case B64.decode (T.encodeUtf8 x) of
40 decodeOrFail x = case B64.decode (T.encodeUtf8 x) of
41 Left e -> error ("Obelisk.ExecutableConfig.Lookup.getConfigs: error when decoding base64: " ++ e)
41 Left e -> error ("Obelisk.ExecutableConfig.Lookup.getConfigs: error when decoding base64: " ++ e)