diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 2 |
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 |