From 4fc36be9dc8a64cafe694335dff972d5ee29ee57 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Tue, 23 Dec 2025 16:45:10 +0100 Subject: Allow custom siteurl/home for locopy --- locopy/Main.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 locopy/Main.hs (limited to 'locopy/Main.hs') 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 -- cgit v1.2.3