2 files changed, 32 insertions, 6 deletions

diff --git a/compiler/app/Main.hs b/compiler/app/Main.hs
index 2511998..be57c82 100644
--- a/compiler/app/Main.hs
+++ b/compiler/app/Main.hs
@@ -17,14 +17,41 @@
 -- along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 {-# LANGUAGE
-    DuplicateRecordFields
-  , DeriveGeneric
-  , DeriveAnyClass
+    RecordWildCards
+  , ApplicativeDo
 #-}
 
 module Main where
 
+import Options.Applicative
+import Data.Semigroup ((<>))
 import Compiler
 
+data Args = Args
+  { inputDir :: String
+  , outputDir :: String }
+
+args :: Parser Args
+args = Args
+  <$> strOption
+     ( long "input"
+    <> short 'i'
+    <> metavar "INPUT DIR"
+    <> help "Gallery source directory" )
+  <*> strOption
+     ( long "output"
+    <> short 'o'
+    <> metavar "OUTPUT DIR"
+    <> help "Generated gallery output path, outside of the input directory" )
+
 main :: IO ()
-main = compileGallery "../../example" "../../out"
+main =
+  do
+    options <- execParser opts
+    compileGallery (inputDir options) (outputDir options)
+
+  where
+    opts = info (args <**> helper)
+       ( fullDesc
+      <> progDesc "Compile a picture gallery"
+      <> header "ldgallery - A static generator which turns a collection of tagged pictures into a searchable web gallery.")
diff --git a/compiler/package.yaml b/compiler/package.yaml
index 85740ab..e3c1eb6 100644
--- a/compiler/package.yaml
+++ b/compiler/package.yaml
@@ -21,8 +21,7 @@ dependencies:
 - directory
 - aeson
 - yaml
-#- optparse-applicative
-#- cmdargs
+- optparse-applicative
 - JuicyPixels
 - JuicyPixels-extra