From 07b0dff2099badc7dd7bc231175753e1556b8616 Mon Sep 17 00:00:00 2001 From: Profpatsch Date: Sun, 17 Sep 2023 19:27:04 +0200 Subject: refactor(users/Profpatsch/whatcd-resolver): rename main function Change-Id: I8ce8ef1cc8a35358d20610be7c8bdadefd3aa30f Reviewed-on: https://cl.tvl.fyi/c/depot/+/9354 Autosubmit: Profpatsch Reviewed-by: Profpatsch Tested-by: BuildkiteCI --- .../whatcd-resolver/src/WhatcdResolver.hs | 24 +++++++++++----------- 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs') diff --git a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs index 0d9e84d00f..4dae268527 100644 --- a/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs +++ b/users/Profpatsch/whatcd-resolver/src/WhatcdResolver.hs @@ -55,6 +55,16 @@ import Text.Blaze.Html5 qualified as Html import Tool (Tool, readTool, readTools) import UnliftIO +main :: IO () +main = + runAppWith + ( do + _ <- runTransaction migrate + htmlUi + ) + <&> first showToError + >>= expectIOError "could not start whatcd-resolver" + htmlUi :: App () htmlUi = do let debug = True @@ -600,16 +610,6 @@ redactedGetTorrentFile dat = ) ) -test :: Bool -> IO (Either TmpPg.StartError ()) -test doSearch = - runAppWith $ do - _ <- runTransaction migrate - when doSearch $ do - transaction <- bla - _ <- runTransaction transaction - pure () - htmlUi - -- fix -- ( \io -> do -- logInfo "delay" @@ -617,8 +617,8 @@ test doSearch = -- io -- ) -bla :: (MonadThrow m, MonadIO m, MonadLogger m, MonadPostgres m) => m (Transaction m ()) -bla = do +exampleSearch :: (MonadThrow m, MonadIO m, MonadLogger m, MonadPostgres m) => m (Transaction m ()) +exampleSearch = do t1 <- redactedSearchAndInsert [ ("searchstr", "cherish"), -- cgit 1.4.1