default to level=0 if tag not present

seems to give slightly better results

1 files changed, 1 insertions, 1 deletions

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