man, why so pointless?

    parseFileWithComments mode = fmap (fmap (first sModule)) . A.parseFileWithComments mode

or 

    parseFileWithComments = fmap (fmap (first sModule)) .: A.parseFileWithComments