Allow custom siteurl/home for locopy

1 files changed, 19 insertions, 0 deletions

diff --git a/locopy/Main.hs b/locopy/Main.hs
new file mode 100644
index 0000000..98fd079
--- /dev/null
+++ b/locopy/Main.hs
@@ -0,0 +1,19 @@
+{- This Source Code Form is subject to the terms of the Mozilla Public License,
+   v. 2.0. If a copy of the MPL was not distributed with this file, You can
+   obtain one at https://mozilla.org/MPL/2.0/. -}
+
+module Main
+    ( main
+    ) where
+
+import Options.Applicative (execParser)
+import Locopy.Wordpress (wordpress)
+import Locopy.CommandLine
+    ( commandLine
+    , CommandLine(..)
+    )
+
+main :: IO ()
+main = execParser commandLine >>= withCommandLine
+  where
+    withCommandLine (WordpressCommand options) = wordpress options