semantic/semantic-ast/src/CLI.hs

{-# LANGUAGE ApplicativeDo #-}
{-# LANGUAGE TypeApplications #-}
module CLI (main) where


newtype SignalException = SignalException Signal
  deriving (Show, Typeable)
instance Exception SignalException


main :: IO ()
main = do
  args <- getArgs
  parseByteString getArgs
copy-pasta of entire CLI module 2019-10-01 18:25:14 +03:00			`{-# LANGUAGE ApplicativeDo #-}`
love me some type applications 2019-10-02 00:01:50 +03:00			`{-# LANGUAGE TypeApplications #-}`
new name who dis 2019-10-02 00:02:08 +03:00			`module CLI (main) where`
copy-pasta of entire CLI module 2019-10-01 18:25:14 +03:00


			`newtype SignalException = SignalException Signal`
			`deriving (Show, Typeable)`
			`instance Exception SignalException`


			`main :: IO ()`
			`main = do`
let's try to build an MVP without optparse-applicative 2019-10-01 22:38:57 +03:00			`args <- getArgs`
			`parseByteString getArgs`