From 4cc892fd4fdf93dded8edfda444a39409e4d1f9d Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Apr 2026 01:24:22 +0200
Subject: gtfs: be more lenient about some fields

---
 lib/GTFS.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib')

diff --git a/lib/GTFS.hs b/lib/GTFS.hs
index 4f3a311..bec519f 100644
--- a/lib/GTFS.hs
+++ b/lib/GTFS.hs
@@ -405,10 +405,10 @@ instance CSV.FromNamedRecord ShapePoint where
 
 intAsBool :: CSV.NamedRecord -> BS.ByteString -> CSV.Parser (Maybe Bool)
 intAsBool r field = do
-  int <- r .: field
-  pure $ case int :: Int of
-    1 -> Just True
-    0 -> Just False
+  int <- r .:? field
+  pure $ case int :: Maybe Int of
+    Just 1 -> Just True
+    Just 0 -> Just False
     _ -> Nothing
 
 intAsBool' :: CSV.NamedRecord -> BS.ByteString -> CSV.Parser Bool
-- 
cgit v1.2.3