From 583df345f7e0541f185de68b937e10086773d1c5 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Fri, 9 Dec 2022 21:22:44 +0100
Subject: VDV 452 fixes & utilities

---
 vdv-server/VDV452.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'vdv-server/VDV452.hs')

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
-- 
cgit v1.2.3