Wrecker.Recorder

Documentation

data RunResult

Constructors

Success

Fields

• resultTime :: !Double
• name :: !String

ErrorStatus

Fields

• resultTime :: !Double
• errorCode :: !Int
• name :: !String

Error

Fields

• resultTime :: !Double
• exception :: !SomeException
• name :: !String

End

Instances

Show RunResult

Methods

showsPrec :: Int -> RunResult -> ShowS

show :: RunResult -> String

showList :: [RunResult] -> ShowS

data Event

Constructors

Event

Fields

• eRunIndex :: !Int
• eResult :: !RunResult

Instances

Show Event

Methods

showsPrec :: Int -> Event -> ShowS

show :: Event -> String

showList :: [Event] -> ShowS

data Recorder

An opaque type for recording actions for profiling. No means are provided for creating a Recorder directly. To obtain a Recorder use either run or defaultMain.

Constructors

Recorder

Fields

• rRunIndex :: !Int
• rQueue :: !(TBMQueue Event)

split :: Recorder -> Recorder

newRecorder :: Int -> IO Recorder

stopRecorder :: Recorder -> IO ()

addEvent :: Recorder -> RunResult -> IO ()

readEvent :: Recorder -> IO (Maybe Event)

record :: forall a. Recorder -> String -> IO a -> IO a

record is how HTTP actions are profiled. Wrap each action of interest in a call to record.

import Network.Wreq.Session
import Data.Aeson

loginReshare :: Recorder -> IO ()
loginReshare recorder = withSession $ \session -> do
  let rc = record recorder

  Object user <- rc "login"
               $ asJSON
            =<< ( post session "https://somesite.com/login"
                $ object [ "email"    .= "[e-mail]"
                         , "password" .= "12345678"
                        ]
                )
  let Just feedUrl = H.lookup "feed" user
  itemRef : _ <- rc "get feed"
               $ asJSON
             =<< ( post session feedUrl
                 $ object [ "email"    .= "[e-mail]"
                          , "password" .= "12345678"
                          ]
                 )
  rc "reshare" $ post session "https://somesite.com/share"
               $ object [ "type" : "reshare"
                        , "ref"  : itemRef
                        ]

In this case the loginReshare script would record three actions: "login", "get feed" and "reshare".

record measures the elapsed time of the call, and catches HttpException in the case of failure. This means failures must be thrown if they are to be properly recorded.