{-# LANGUAGE CPP, DoAndIfThenElse #-}

module PGIP.Shared where

import Common.LibName

import Common.Json (Json (..), pJson, ppJson)

import Static.DevGraph

import qualified Data.ByteString.Char8 as B8

import qualified Data.ByteString.Lazy.Char8 as BS

import Data.IORef

import Data.Time

import qualified Data.Map as Map

import qualified Data.IntMap as IntMap

import Network.Wai

import Text.ParserCombinators.Parsec (parse)

#ifdef WARP1

type RsrcIO a = ResourceT IO a

#else

type RsrcIO a = IO a

#endif

data Session = Session

{ sessLibEnv :: LibEnv

, sessLibName :: LibName

, sessPath :: [String]

, sessKey :: Int

, sessStart :: UTCTime

, lastAccess :: UTCTime

, usage :: Int

, sessCleanable :: Bool } deriving (Show)

type SessMap = Map.Map [String] Session

type Cache = IORef (IntMap.IntMap Session, SessMap)

parseJson :: String -> Maybe Json

parseJson s = case parse pJson "" s of

Left _ -> Nothing

Right json -> Just json

jsonBody :: Request -> RsrcIO (Maybe Json)

jsonBody = fmap (parseJson . B8.unpack) . receivedRequestBody

receivedRequestBody :: Request -> RsrcIO B8.ByteString

receivedRequestBody = fmap (B8.pack . BS.unpack) . lazyRequestBody