Version from compile time nix

This commit is contained in:
MasseR committed 2026-06-02 10:18:55 +03:00
1 parent e87aae3144
commit 51a1e49fb7
6 files changed
+29 -32

No files matched your search

+3
View File
@@ -30,10 +30,12 @@ import UnliftIO.Exception (displayException, isAsyncException)
import UnliftIO.IORef (IORef, newIORef, writeIORef)
import Wallabag
import Pipes.Concurrent (performGC)
import qualified Version
data Options
= Quick {verbose :: Bool}
| Full {verbose :: Bool}
| Version
| Daemon
{ verbose :: Bool,
credentials :: FilePath <?> "Path to the credentials.json",
@@ -167,6 +169,7 @@ defaultMain = do
case opts of
Quick {verbose} -> run (severity verbose) Unarchived
Full {verbose} -> run (severity verbose) Everything
Version -> print Version.compileTimeVersion
Daemon {verbose, credentials, port} ->
runDaemon (unHelpful $ unDefValue port) (unHelpful credentials) (severity verbose)
where