app/Gyehoek/Options.hs

@@ -8,7 +8,10 @@ module Gyehoek.Options
 import System.IO (Handle)
 import Data.HashSet (HashSet)
 import Options.Applicative
+import System.FilePath
 import qualified Data.HashSet as HS
+import Control.Lens hiding (argument)
+import GHC.Generics (Generic)
 
 
 data Options = MkOptions
@@ -17,7 +20,11 @@ data Options = MkOptions
   output :: Maybe FilePath
   , sourceFiles :: HashSet FilePath
   }
-  deriving (Show)
+  deriving (Show, Generic)
+
+-- osPath :: ReadM _
+-- osPath = eitherReader $
+--   (_Left %~ show) . encodeUtf @(Either _)
 
 -- parseDumpQBE =
 --   optional $ strOption