trivialApp :: Application
trivialApp req f =
    f $
      responseLBS
        ok200
        [ ("content-type", "text/plain") ]
        "Trivial App"
trivialApp :: Application
trivialApp req f =
    f $
      responseLBS
        ok200
        [ ("content-type", "text/plain") ]
        "Trivial App"
trivialApp req f =
    f $
      responseLBS
        ok200
        [ ("content-type", "text/plain") ]
        "Trivial App"