cgiMain = do p <- pathInfo
             p'<- return $ "http:/" ++ p
             case (parseURI p') of
               Nothing -> outputNotFound $ "Could not parse: "++p'
               Just uri -> do pu <- liftIO $ processURI uri
                              output pu

--processURI :: URI -> CGIT IO String
processURI uri =
   do d <- getData uri
      p <- processData d
      return p


-------
Error
    Overlapping instances for MonadCGI (CGIT IO)
      arising from use of `output' at imageresize.hs:18:30-35
    Matching instances:
      Imported from Network.CGI.Monad: instance (Monad m) => MonadCGI (CGIT m)
      Imported from Network.CGI.Monad:
        instance (Control.Monad.Trans.MonadTrans t, MonadCGI m, Monad (t m)) =>
                 MonadCGI (t m)
    In the result of a 'do' expression: output pu
    In a case alternative:
        Just uri
          -> do
               pu <- liftIO $ (processURI uri)
               output pu