@@ -5,7 +5,6 @@ import Prelude ()
55import Prelude.Compat
66
77import Control.Exception
8−import Data.Maybe (fromMaybe)
98import Data.Text (Text)
109import qualified Data.Text as T
1110import qualified Data.Text.IO as T
@@ -18,19 +17,19 @@ import System.IO
1817import qualified Paths_purescript as Paths
1918
2019data Options = Options
21− { optionsPort :: Maybe Int
22− }
20+ { optionsPort :: PortID
21+ }
2322
2423main :: IO ()
2524main = do
2625 Options port <- execParser opts
27− let port' = PortNumber . fromIntegral $ fromMaybe 4242 port
28− client port'
26+ client port
2927 where
3028 parser =
3129 Options <$>
32− optional (option auto (long "port" <> short 'p'))
33− opts = info (version <*> parser) mempty
30+ (PortNumber . fromIntegral <$>
31+ option auto (long "port" <> short 'p' <> value (4242 :: Integer)))
32+ opts = info (version <*> helper <*> parser) mempty
3433 version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> help "Show the version number" <> hidden
3534
3635client :: PortID -> IO ()