From 635e69e4e8e488d079de7969c94bb76fd5a39404 Mon Sep 17 00:00:00 2001
From: Gabriel Gonzalez <Gabriel439@gmail.com>
Date: Sat, 4 Jul 2015 20:05:27 -0700
Subject: [PATCH] Added `argPath` and `optPath`

---
 src/Turtle/Options.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/Turtle/Options.hs b/src/Turtle/Options.hs
index 1a8fc85..0799b7d 100644
--- a/src/Turtle/Options.hs
+++ b/src/Turtle/Options.hs
@@ -45,6 +45,7 @@ module Turtle.Options
     , optInt
     , optInteger
     , optDouble
+    , optPath
     , optRead
     , opt
 
@@ -53,6 +54,7 @@ module Turtle.Options
     , argInt
     , argInteger
     , argDouble
+    , argPath
     , argRead
     , arg
 
@@ -70,9 +72,11 @@ import qualified Data.Text as Text
 import Data.Optional
 import Control.Applicative
 import Control.Monad.IO.Class
+import Filesystem.Path.CurrentOS (FilePath, fromText)
 import Options.Applicative (Parser)
 import qualified Options.Applicative as Opts
 import qualified Options.Applicative.Types as Opts
+import Prelude hiding (FilePath)
 
 -- | Parse the given options from the command line
 options :: MonadIO io => Description -> Parser a -> io a
@@ -156,6 +160,10 @@ optDouble = optRead
 optText :: ArgName -> ShortName -> Optional HelpMessage -> Parser Text
 optText = opt Just
 
+-- | Parse a `FilePath` value as a flag-based option
+optPath :: ArgName -> ShortName -> Optional HelpMessage -> Parser FilePath
+optPath argName short msg = fmap fromText (optText argName short msg)
+
 {- | Build a positional argument parser for any type by providing a
     `Text`-parsing function
 -}
@@ -188,6 +196,10 @@ argDouble = argRead
 argText :: ArgName -> Optional HelpMessage -> Parser Text
 argText = arg Just
 
+-- | Parse a `FilePath` as a positional argument
+argPath :: ArgName -> Optional HelpMessage -> Parser FilePath
+argPath argName msg = fmap fromText (argText argName msg)
+
 argParseToReadM :: (Text -> Maybe a) -> Opts.ReadM a
 argParseToReadM f = do
     s <- Opts.readerAsk