semantic/semantic-ast/src/CLI.hs

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

import System.Environment
import TreeSitter.Unmarshal
import TreeSitter.Python.AST
import TreeSitter.Python
import Source.Range
import Source.Span
import Data.ByteString (ByteString)

main :: IO (Either Prelude.String (Module (Range, Span)))
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
access getArgs via System.Environment 2019-10-02 00:03:02 +03:00			`import System.Environment`
unmarshal and friends 2019-10-02 00:03:37 +03:00			`import TreeSitter.Unmarshal`
			`import TreeSitter.Python.AST`
			`import TreeSitter.Python`
access range and span 2019-10-02 00:03:18 +03:00			`import Source.Range`
			`import Source.Span`
need ByteString 2019-10-02 00:03:27 +03:00			`import Data.ByteString (ByteString)`
copy-pasta of entire CLI module 2019-10-01 18:25:14 +03:00
change this to reflect parseByteString's type signature for now 2019-10-02 00:04:18 +03:00			`main :: IO (Either Prelude.String (Module (Range, Span)))`
copy-pasta of entire CLI module 2019-10-01 18:25:14 +03:00			`main = do`
let's try to build an MVP without optparse-applicative 2019-10-01 22:38:57 +03:00			`args <- getArgs`
			`parseByteString getArgs`