organization refactor separating database actions, data transformations, and api type constructs into separate components

src/Foundation.hs

@@ -7,6 +7,7 @@
 {-# LANGUAGE ViewPatterns          #-}
 {-# LANGUAGE TypeApplications #-}
 {-# OPTIONS_GHC -Wno-orphans #-}
+
 module Foundation where
 
 import           Startlude               hiding ( Handler )
@@ -75,9 +76,6 @@ instance Has AppSettings RegistryCtx where
     extract = appSettings
     update f ctx = ctx { appSettings = f (appSettings ctx) }
 
-
-
-
 setWebProcessThreadId :: (ThreadId, ThreadId) -> RegistryCtx -> IO ()
 setWebProcessThreadId tid a = putMVar (appWebServerThreadId a) $ tid