prefixpath --> prefix

Author: ingun37

app/Main.hs

@@ -4,7 +4,7 @@ import MyLib (someFunc)
 import Options.Applicative
 
 data Sample = Sample
-  { prefixPath :: String,
+  { prefix :: String,
     src :: String,
     dst :: String
   }
@@ -13,7 +13,7 @@ sample :: Parser Sample
 sample =
   Sample
     <$> strOption
-      ( long "prefixpath"
+      ( long "prefix"
           <> value ""
           <> help "prefix path of webserver"
       )
@@ -27,8 +27,8 @@ sample =
       )
 
 greet :: Sample -> IO ()
-greet (Sample prefixPath src dst) = do
-  _ <- someFunc prefixPath src dst
+greet (Sample prefix src dst) = do
+  _ <- someFunc prefix src dst
   return ()
 
 main :: IO ()