summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--vdv-server/Example452.hs19
-rw-r--r--vdv-server/VDV452.hs8
2 files changed, 20 insertions, 7 deletions
diff --git a/vdv-server/Example452.hs b/vdv-server/Example452.hs
index 319500b..51d4a46 100644
--- a/vdv-server/Example452.hs
+++ b/vdv-server/Example452.hs
@@ -10,6 +10,9 @@ import Data.Time (Day, fromGregorian, getCurrentTime, utctDay)
import Codec.Archive.Zip (Archive)
+-- TODO: RecHp, MengeFztTyp, OrtHztf, RecUeb, UebFzt, RecUmlauf
+
+
t993 :: Day -> Vector BasisVerGueltigkeit
t993 day = [ BasisVerGueltigkeit day 1 ]
@@ -26,10 +29,15 @@ t997 = [ MengeOrtTyp 1 OrtHaltestelle "Haltestelle" ]
t253 :: Vector RecOrt
t253 = [ RecOrt 1 OnrHaltepunkt 10 "Passau Hbf" 10 8000298 "de:09262:156" 0 OrtHaltestelle Nothing "PA" "Passau Hbf" Nothing (Just $ Longitude 13.450776) (Just $ Latitude 48.573632) Nothing Nothing
- , RecOrt 1 OnrHaltepunkt 11 "Freyung Bf" 11 8002094 "de:09272:4851" 1 OrtHaltestelle Nothing "FR" "Freyung" Nothing (Just $ Longitude 13.548351) (Just $ Latitude 48.802843) Nothing Nothing]
-
+ , RecOrt 1 OnrHaltepunkt 11 "Freyung Bf" 11 8002094 "de:09272:4851" 1 OrtHaltestelle Nothing "FR" "Freyung" Nothing (Just $ Longitude 13.548351) (Just $ Latitude 48.802843) Nothing Nothing
+ ]
+t229 :: Vector RecHp
+t229 = [ RecHp 1 OrtHaltestelle 10 10 "Passau Hbf"
+ , RecHp 1 OrtHaltestelle 11 11 "Freyung Bf"]
+t293 :: Vector MengeFzgTyp
+t293 = [ MengeFzgTyp 1 1 0 0 0 0 80 30 "irgendein Fahrzeug" 1 "dings" Nothing Nothing Nothing ]
-- mögliche anzeigetexte eines DFI
t994 :: Vector RecZnr
@@ -62,6 +70,10 @@ t299 = [ RecSel 1 1 OnrHaltepunkt 10 11 OrtHaltestelle 30000 ]
t282 :: Vector SelFztFeld
t282 = [ SelFztFeld 1 1 1 OrtHaltestelle 10 11 OrtHaltestelle 3600 ]
+t999 :: Vector OrtHztf
+t999 = [ OrtHztf 1 1 OrtHaltestelle 10 60
+ , OrtHztf 1 1 OrtHaltestelle 11 60
+ ]
-- zwei halte für eine fahrt auf linie 13
t246 :: Vector LidVerlauf
@@ -93,6 +105,8 @@ mkArchive = do
, ÖPNVTable t998
, ÖPNVTable t997
, ÖPNVTable t253
+ , ÖPNVTable t229
+ , ÖPNVTable t293
, ÖPNVTable t994
, ÖPNVTable t290
, ÖPNVTable t348
@@ -101,6 +115,7 @@ mkArchive = do
, ÖPNVTable t333
, ÖPNVTable t299
, ÖPNVTable t282
+ , ÖPNVTable t999
, ÖPNVTable t246
, ÖPNVTable t226
, ÖPNVTable t715
diff --git a/vdv-server/VDV452.hs b/vdv-server/VDV452.hs
index d1b315f..e8840ce 100644
--- a/vdv-server/VDV452.hs
+++ b/vdv-server/VDV452.hs
@@ -299,11 +299,9 @@ data MengeFzgTyp = MengeFzgTyp
, fzgtypSonderPlatz :: Int
, fzgtypStrFzgTyp :: Text
-- ^ kursbezeichnung des fahrzeugtyps
- -- , fzgtypBatterieTypNr :: Maybe Int
- -- -- this one is optional, but the others maybe not?
- -- -- fremdschlüssel MengeBatterieTyp
- -- , fzgtypVerbrauchDistanz :: Int
- -- , fzgtypVerbrauchZeit :: Int
+ , fzgtypBatterieTypNr :: Maybe Int
+ , fzgtypVerbrauchDistanz :: Maybe Int
+ , fzgtypVerbrauchZeit :: Maybe Int
}
instance ÖPNVDatum MengeFzgTyp where