diff options
| author | stuebinm | 2023-03-09 16:49:03 +0100 |
|---|---|---|
| committer | stuebinm | 2023-03-09 16:49:03 +0100 |
| commit | a1f8779a4774e1058c2a1142482bc8fd41fcbe5f (patch) | |
| tree | b00f291f466365952aab1b9405cee9ef192b60aa | |
| parent | b0ac21655c609dbce610db16672a091cd93f26b7 (diff) | |
testing vdv452 things
| -rw-r--r-- | vdv-server/Example452.hs | 19 | ||||
| -rw-r--r-- | vdv-server/VDV452.hs | 8 |
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 |