From b33c00f1c390265fc8dec98f57e36ee4ca9ba2ac Mon Sep 17 00:00:00 2001 From: stuebinm Date: Tue, 14 Nov 2023 23:50:38 +0100 Subject: [PATCH] default to level=0 if tag not present seems to give slightly better results --- app/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index ddfc3bd..2a31a49 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -166,7 +166,7 @@ app AppData{..} request respond = mkAnswer >>= (respond . toResponse) Left _ -> pure Notfound Right (platforms :: Vector Platform) -> do let answer = V.toList platforms - & sortOn (maybe (-100 :: Int) (fromRight (-100) . fmap fst . T.signed T.decimal) . osmLevel) + & sortOn (maybe (0::Int) (fromRight 0 . fmap fst . T.signed T.decimal) . osmLevel) <&> renderPlatform & (Html . T.concat) now <- getCurrentTime