some config thingyesod

works kinda well, but doesn't complain about unknown config values in
json, which is kinda hmpf tbh

1 files changed, 1 insertions, 1 deletions

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)