2019-10-01 18:25:14 +03:00
|
|
|
{-# LANGUAGE ApplicativeDo #-}
|
2019-10-02 00:01:50 +03:00
|
|
|
{-# LANGUAGE TypeApplications #-}
|
2019-10-02 00:02:08 +03:00
|
|
|
module CLI (main) where
|
2019-10-01 18:25:14 +03:00
|
|
|
|
2019-10-02 00:03:02 +03:00
|
|
|
import System.Environment
|
2019-10-02 00:03:18 +03:00
|
|
|
import Source.Range
|
|
|
|
|
import Source.Span
|
2019-10-01 18:25:14 +03:00
|
|
|
|
|
|
|
|
|
|
|
|
|
newtype SignalException = SignalException Signal
|
|
|
|
|
deriving (Show, Typeable)
|
|
|
|
|
instance Exception SignalException
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
2019-10-01 22:38:57 +03:00
|
|
|
args <- getArgs
|
|
|
|
|
parseByteString getArgs
|
