From d9cd40f9d84e104207f8ef34c6d5a4f9d1b3af4b Mon Sep 17 00:00:00 2001
From: Brad Richardson <brichardson@structint.com>
Date: Tue, 25 Feb 2020 11:18:40 -0800
Subject: Add bare minimum of command line parsing

---
 app/Main.hs | 41 +++++++++++++++++++++++++++++++++++++++--
 1 file changed, 39 insertions(+), 2 deletions(-)

(limited to 'app')

diff --git a/app/Main.hs b/app/Main.hs
index de1c1ab..9d9c5dc 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,6 +1,43 @@
 module Main where
 
-import Lib
+import           Options.Applicative
+
+newtype Arguments = Arguments { command' :: Command }
+
+data Command = Run | Test | Build
 
 main :: IO ()
-main = someFunc
+main = do
+    args <- getArguments
+    run args
+
+run :: Arguments -> IO ()
+run args = case command' args of
+    Run   -> putStrLn "Run"
+    Test  -> putStrLn "Test"
+    Build -> putStrLn "Build"
+
+getArguments :: IO Arguments
+getArguments = execParser
+    (info
+        (arguments <**> helper)
+        (fullDesc <> progDesc "Work with Fortran projects" <> header
+            "fpm - A Fortran package manager and build system"
+        )
+    )
+
+arguments :: Parser Arguments
+arguments = subparser
+    (  command "run"   (info runArguments (progDesc "Run the executable"))
+    <> command "test"  (info testArguments (progDesc "Run the tests"))
+    <> command "build" (info buildArguments (progDesc "Build the executable"))
+    )
+
+runArguments :: Parser Arguments
+runArguments = pure $ Arguments Run
+
+testArguments :: Parser Arguments
+testArguments = pure $ Arguments Test
+
+buildArguments :: Parser Arguments
+buildArguments = pure $ Arguments Build
-- 
cgit v1.2.3