Add an importer binary.

importer/Main.hs

@@ -0,0 +1,23 @@
+module Main where
+
+import Options.Applicative
+import qualified Data.ByteString.Lazy as BSL
+
+import Config
+import Database
+
+import qualified Parsers.Readwise as RW
+
+runImporter :: FilePath -> FilePath -> IO ()
+runImporter db rw = do
+  x <- BSL.readFile rw
+  let y = RW.parse x
+  case y of
+    Left err -> print err
+    Right qts -> insertQts db qts
+
+main :: IO ()
+main = do
+  conf <- execParser importerParserOpts
+  initDb (ioAppDbFile conf)
+  runImporter (ioAppDbFile conf) (ioReadwiseFile conf)