gistfile1.hs

-- This works
import Network.Wai
app Request{requestMethod = m, pathInfo = p} = do
    case (m, p) of
         ("GET", [])            -> return index
         _                      -> return notFound

-- But not this
import qualified Network.Wai as Wai
app Wai.Request{requestMethod = m, pathInfo = p} = do
    case (m, p) of
         ("GET", [])            -> return index
         _                      -> return notFound
-- Above snippet fails with:
--    'requestMethod' is not a (visible) field of constructor 'Wai.Request'
--    'pathInfo' is not a (visible) field of constructor 'Wai.Request'