diff options
Diffstat (limited to 'vdv-server/VDV452.hs')
| -rw-r--r-- | vdv-server/VDV452.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/vdv-server/VDV452.hs b/vdv-server/VDV452.hs index 38e6a8d..d1b315f 100644 --- a/vdv-server/VDV452.hs +++ b/vdv-server/VDV452.hs @@ -266,7 +266,7 @@ instance ÖPNVDatum ZulVerkehsbetrieb where -- | 333 data MengeBereich = MengeBereich { mengebereichBasisVersion :: Int - , mengebereichBereichNr :: Text + , mengebereichBereichNr :: Int , mengebereichStrBereich :: Text , mengebereichBereichText :: Text } @@ -440,7 +440,7 @@ data MengeFgr = MengeFgr { mengefgrBasisVersion :: Int , mengefgrFgrNr :: Int , mengefgrText :: Text - , mengefgrTypNr :: Int + -- , mengefgrTypNr :: Int } instance ÖPNVDatum MengeFgr where @@ -450,7 +450,7 @@ instance ÖPNVDatum MengeFgr where [ ("BASIS_VERSION", ÖNum 9, F . mengefgrBasisVersion) , ("FGR_NR", ÖNum 9, F . mengefgrFgrNr) , ("FGR_TEXT", ÖChar 40, F . mengefgrText) - , ("FGR_TYP_NR", ÖNum 3, F . mengefgrTypNr) + -- , ("FGR_TYP_NR", ÖNum 3, F . mengefgrTypNr) ] --- | 999: Angabe von Haltezeiten je Fahrzeitgruppe und Ort @@ -762,7 +762,7 @@ data RecFrt = RecFrt , recfrtStart :: Int , recfrtLiNr :: Int , recfrtTagesartNr :: Int - , recfrtLiKuNr :: Int + , recfrtLiKuNr :: Maybe Int , recfrtFahrtartNr :: Fahrtart , recfrtFgrNr :: Int , recfrtStrLiVar :: Text |