paul/yore
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove get100YearsAgo

Browse Source
This commit is contained in:
Paul Brinkmeier 2025-09-22 23:54:54 +02:00
parent 0bf734730b
commit 05943c902e
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/Main.hs
View File

@ -176,13 +176,13 @@ server cfg db = rootR :<|> todayR :<|> apiTodayR
rootR = todayR 0 rootR = todayR 0
todayR issue = do todayR issue = do
dateThen <- ExceptT get100YearsAgo dateThen <- getTodayWithOffset (-100) 0
count <- DB.withConn db $ DB.getNumberOfIssues dateThen count <- DB.withConn db $ DB.getNumberOfIssues dateThen
dayFile <- DB.withConn db $ DB.getDayFileByIssue dateThen issue dayFile <- DB.withConn db $ DB.getDayFileByIssue dateThen issue
pure $ RootModel dateThen dayFile issue count pure $ RootModel dateThen dayFile issue count
apiTodayR issue = do apiTodayR issue = do
dateThen <- ExceptT get100YearsAgo dateThen <- getTodayWithOffset (-100) 0
dayFile <- DB.withConn db $ DB.getDayFileByIssue dateThen issue dayFile <- DB.withConn db $ DB.getDayFileByIssue dateThen issue
let fullPath = cfg.yoreDownloadDir </> dayFile.relative_path let fullPath = cfg.yoreDownloadDir </> dayFile.relative_path
secondsUntilMidnight <- liftIO getSecondsUntilMidnight secondsUntilMidnight <- liftIO getSecondsUntilMidnight
@ -230,9 +230,6 @@ instance MimeRender HTML RootModel where
-- Utils -- Utils
get100YearsAgo :: IO (Either Error Day)
get100YearsAgo = runExceptT $ getTodayWithOffset (-100) 0
getTodayWithOffset :: Integer -> Integer -> ExceptT Error IO Day getTodayWithOffset :: Integer -> Integer -> ExceptT Error IO Day
getTodayWithOffset yearOffset dayOffset = getTodayWithOffset yearOffset dayOffset =
ExceptT $ ExceptT $