diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Server.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Server.hs b/lib/Server.hs index d6e9955..7ebaca5 100644 --- a/lib/Server.hs +++ b/lib/Server.hs @@ -107,6 +107,7 @@ server gtfs@GTFS{..} Metrics{..} subscribers dbpool settings = handleDebugAPI where mkJson :: Trip Deep Deep -> A.Value mkJson Trip {..} = A.object [ "trip" .= tripTripID + , "sequencelength" .= (stopSequence . V.last) tripStops , "stops" .= fmap (\Stop{..} -> A.object [ "departure" .= stopDeparture , "station" .= stationId stopStation |