{-# LANGUAGE DataKinds #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE RecordWildCards #-} module Server.Frontend.Gtfs (getGtfsTripViewR, getGtfsTripsViewR) where import Server.Frontend.Routes import Data.Functor ((<&>)) import qualified Data.Map as M import Data.Text (Text) import qualified Data.Vector as V import qualified GTFS import Text.Blaze.Html (Html) import Yesod getGtfsTripsViewR :: Handler Html getGtfsTripsViewR = do GTFS.GTFS{..} <- getYesod <&> getGtfs defaultLayout $ do setTitle "List of Trips" [whamlet|
_{MsgtripId}: #{tripTripId}
_{MsgtripHeadsign}: #{mightbe tripHeadsign}
_{MsgtripShortname}: #{mightbe tripShortName}
_{MsgStops}
$forall GTFS.Stop{..} <- tripStops
Dates
TODO!
|]
mightbe :: Maybe Text -> Text
mightbe (Just a) = a
mightbe Nothing = ""