Allow custom siteurl/home for locopy

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