README.md

@@ -41,10 +41,8 @@ By setting `$BASE_DIR` you can persist the database for later runs.
 
 ## TODO
 
-- [x] CI
+- CI
-- [x] Docker container (in flake)
+- Docker container (in flake)
-- [x] try fourmolu
+- try fourmolu
-- [x] Test leap second handling in the `time` package
+- Test leap second handling in the `time` package
-- [ ] Fix container shutdown delay
+- use queue to sync logging of indexer and main thread
-- [ ] Fix `responseFile` always returning 200
-- [ ] use queue to sync logging of indexer and main thread

app/Main.hs

@@ -65,7 +65,6 @@ import Data.Time.Clock.POSIX (getPOSIXTime)
 import qualified Envy
 import qualified Yore.DB as DB
 import qualified Yore.Log as Log
-import System.IO (hSetBuffering, BufferMode (..), stdout)
 
 data ConfigT f = Config
   { yorePort :: f =@@ Int ? 3000
@@ -80,8 +79,6 @@ deriving instance Show Config
 
 main :: IO ()
 main = do
-  hSetBuffering stdout NoBuffering
-
   cfg <-
     Envy.load @ConfigT >>= \case
       Left errs -> do

flake.nix

@@ -64,30 +64,19 @@
             name = "git.pbrinkmeier.de/paul/yore";
             tag = yore.version;
             copyToRoot = [ pkgs.cacert ];
-            config = {
+            config.Cmd = [ "${entrypoint}/bin/run" ];
-              Cmd = [ "${entrypoint}/bin/run" ];
-              StopSignal = "SIGINT";
-            };
           };
 
         entrypoint = pkgs.writeShellApplication {
           name = "run";
           runtimeInputs = [ pkgs.coreutils pkgs.dbmate yore ];
           text = ''
-            set -Eeuo pipefail
+            mkdir -p /workspace/db
-
+            cp -r ${./db}/* /workspace/db
-            mkdir -p "''${YORE_DBMATE_DIR}"
+            cd /workspace
-            TMPDIR=$(mktemp -dp "''${YORE_DBMATE_DIR}")
-            mkdir -p "''${TMPDIR}/db"
-            cp -r ${./db}/* "''${TMPDIR}/db"
-            cd "''${TMPDIR}"
             dbmate up
-            chmod +w -R "''${TMPDIR}"
-            rm -rf "''${TMPDIR}"
 
-            # Replace bash and inherit PID 1
+	    yore
-            cd /
-            exec yore
           '';
         };
       in {

src/Yore/Scrape.hs

@@ -112,7 +112,7 @@ showpdfRequest (y, m, d) =
     NoReqBody
     bsResponse
     ( formToQuery
-        [ ("cmd" :: Text, "showpdfjs")
+        [ ("cmd" :: Text, "showpdf")
         , ("year", y)
         , ("month", m)
         , ("day", d)

yore.cabal

@@ -1,7 +1,7 @@
 cabal-version: 3.4
 
 name:           yore
-version:        0.0.9
+version:        0.0.2
 author:         Paul Brinkmeier
 maintainer:     hallo@pbrinkmeier.de
 copyright:      2023 Paul Brinkmeier