From b092808a65b16688546b4f4f021a84cc120f8a8a Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Mon, 6 Jun 2022 21:51:56 +0200
Subject: restructure GTFS types

unfortunately doesn't quite get rid of all the type family still
since it's just too useful … but does reduce it somewhat.

Also, maps are much easier for looking things up than vectors!
---
 app/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index de77adc..5b4224a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -33,7 +33,7 @@ import Server
 
 main :: IO ()
 main = do
-  gtfs <- loadGtfs @Deep "./gtfs.zip"
+  gtfs <- loadGtfs "./gtfs.zip"
   app <- application gtfs
   loggerMiddleware <- mkRequestLogger
     $ def { outputFormat = Detailed True }
-- 
cgit v1.2.3