goGeneric :: IO Request -> Snap a -> IO (Request, Response)
goGeneric mkRq m = do
    rq <- mkRq
    runSnap (seqSnap m) d d rq

  where
    d = (const $ return ())
goGeneric :: IO Request -> Snap a -> IO (Request, Response)
goGeneric mkRq m = do
    rq <- mkRq
    runSnap (seqSnap m) d d rq

  where
    d = (const $ return ())
goGeneric mkRq m = do
    rq <- mkRq
    runSnap (seqSnap m) d d rq

  where
    d = (const $ return ())