{-# LANGUAGE OverloadedStrings #-}

module Haskell.Debug.Adapter.Constant where

import qualified Data.Version as V

-- |
--
_INI_SEC_DEF :: String
_INI_SEC_DEF :: String
_INI_SEC_DEF = String
"DEFAULT"

-- |
--
_INI_DEF_WORK_DIR :: String
_INI_DEF_WORK_DIR :: String
_INI_DEF_WORK_DIR  = String
"work_dir"

-- |
--
_INI_SEC_LOG :: String
_INI_SEC_LOG :: String
_INI_SEC_LOG   = String
"LOG"

-- |
--
_INI_LOG_FILE :: String
_INI_LOG_FILE :: String
_INI_LOG_FILE  = String
"file"

-- |
--
_INI_LOG_LEVEL :: String
_INI_LOG_LEVEL :: String
_INI_LOG_LEVEL = String
"level"

-- |
--
_LOG_NAME :: String
_LOG_NAME :: String
_LOG_NAME = String
"HDA"


-- |
--
_LOG_REQUEST :: String
_LOG_REQUEST :: String
_LOG_REQUEST = String
"REQUEST"


-- |
--
_LOG_RESPONSE :: String
_LOG_RESPONSE :: String
_LOG_RESPONSE = String
"RESPONSE"


-- |
--
_LOG_APP :: String
_LOG_APP :: String
_LOG_APP = String
"APP"


-- |
--
_LOG_THREAD_MGR :: String
_LOG_THREAD_MGR :: String
_LOG_THREAD_MGR = String
"THREAD_MGR"


-- |
--
_LOG_EVENT :: String
_LOG_EVENT :: String
_LOG_EVENT = String
"EVENT"


-- |
--
_LOG_GHCI_STDOUT :: String
_LOG_GHCI_STDOUT :: String
_LOG_GHCI_STDOUT = String
"GHCI_STDOUT"


-- |
--
_LOG_WATCH :: String
_LOG_WATCH :: String
_LOG_WATCH = String
"WATCH"


-- |
--
_LOG_FORMAT :: String
_LOG_FORMAT :: String
_LOG_FORMAT = String
"$time [$pid($tid)] $prio $loggername - $msg"

-- |
--
_LOG_FORMAT_DATE :: String
_LOG_FORMAT_DATE :: String
_LOG_FORMAT_DATE = String
"%Y-%m-%d %H:%M:%S.%q"
-- _LOG_FORMAT_DATE = "%Y-%m-%d %H:%M:%S"


-- |
-- 
_CONTENT_LENGTH :: String
_CONTENT_LENGTH :: String
_CONTENT_LENGTH = String
"Content-Length: " 


-- |
--
_TWO_CRLF :: String
_TWO_CRLF :: String
_TWO_CRLF = String
"\r\n\r\n"

-- |
--
_1_MILLI_SEC :: Int
_1_MILLI_SEC :: Int
_1_MILLI_SEC = Int
1 forall a. Num a => a -> a -> a
* Int
1000

-- |
--
_10_MILLI_SEC :: Int
_10_MILLI_SEC :: Int
_10_MILLI_SEC = Int
10 forall a. Num a => a -> a -> a
* Int
1000


-- |
--
_100_MILLI_SEC :: Int
_100_MILLI_SEC :: Int
_100_MILLI_SEC = Int
100 forall a. Num a => a -> a -> a
* Int
1000


-- |
--
_1_SEC :: Int
_1_SEC :: Int
_1_SEC = Int
1000 forall a. Num a => a -> a -> a
* Int
1000

-- |
--
--
_SEP_WIN :: Char
_SEP_WIN :: Char
_SEP_WIN = Char
'\\'

-- |
--
--
_SEP_UNIX :: Char
_SEP_UNIX :: Char
_SEP_UNIX = Char
'/'

-- |
--
_GHCI_PROMPT :: String
_GHCI_PROMPT :: String
_GHCI_PROMPT = String
"Prelude> "

-- |
--
_GHCI_PROMPT_HDA :: String
_GHCI_PROMPT_HDA :: String
_GHCI_PROMPT_HDA = String
"H>>= "


-- |
--
--_LF_WORD :: Word8
--_LF_WORD = '\n'

-- |
--
_LF_STR :: String
_LF_STR :: String
_LF_STR = String
"\n"


-- |
--
_BASE_GHCI_VERSION :: V.Version
_BASE_GHCI_VERSION :: Version
_BASE_GHCI_VERSION =  [Int] -> [String] -> Version
V.Version [Int
8, Int
0, Int
0] []


-- |
--
_DAP_HEADER :: String
_DAP_HEADER :: String
_DAP_HEADER = String
"<<DAP>>"


-- |
--
_DAP_HEADER_OUTPUT_EVENT :: String
_DAP_HEADER_OUTPUT_EVENT :: String
_DAP_HEADER_OUTPUT_EVENT = String
"<<DAP_OUTPUT_EVENT>>"


-- |
--
_DAP_CMD_END2 :: String
_DAP_CMD_END2 :: String
_DAP_CMD_END2 = String
"<<DAP_CMD_END2>>"


-- |
--
_HS_FILE_EXT :: String
_HS_FILE_EXT :: String
_HS_FILE_EXT = String
".hs"