Haskellのwaiについて

Haskellでwai,warpを使ってapiサーバーを作りたいと考えたのですが
requestをByteStringに直して関数に渡したいのですがうまくいきません
よろしくお願いします

app :: Application
app request respond = respond $ case rawPathInfo request of
    "/"     -> htmlIndex
    "/raw"  -> plainIndex
    _       -> function $ rawPathInfo request

function :: ByteString -> Response
function req = responseLBS
    status200
    [("Content-Type", "text/plain")]
    req