Merge branch 'githash'

src/MyLib.hs

@@ -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",
@@ -170,6 +172,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