From f7066888652ed3326017adf2eb6786a21043ebf5 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 28 Aug 2022 21:33:33 +0200
Subject: some config thing

works kinda well, but doesn't complain about unknown config values in
json, which is kinda hmpf tbh
---
 lib/API.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/API.hs')

diff --git a/lib/API.hs b/lib/API.hs
index 35bdee7..4a72d6c 100644
--- a/lib/API.hs
+++ b/lib/API.hs
@@ -34,7 +34,7 @@ import           GTFS.Realtime.FeedEntity
 import           GTFS.Realtime.FeedMessage   (FeedMessage)
 import           Persist
 
-data RegisterJson = RegisterJson
+newtype RegisterJson = RegisterJson
   { registerAgent :: Text }
   deriving (Show, Generic)
 
-- 
cgit v1.2.3