app :: Application
app Request{requestMethod = m, pathInfo = p} = do
    case (m, p) of
         ("GET", []) -> return index
         _           -> return notFound
app :: Application
app Request{requestMethod = m, pathInfo = p} = do
    case (m, p) of
         ("GET", []) -> return index
         _           -> return notFound
app Request{requestMethod = m, pathInfo = p} = do
    case (m, p) of
         ("GET", []) -> return index
         _           -> return notFound