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