Changes between Version 1 and Version 2 of HackageDB/2.0/Architecture/Happstack

Show
Ignore:
Timestamp:
10/02/10 08:31:43 (3 years ago)
Author:
mgruen
Comment:

liftM2 not needed..

Legend:

Unmodified
Added
Removed
Modified

  • HackageDB/2.0/Architecture/Happstack

    v1 v2  
    168168        badRequest $ toResponse "File name is invalid" 
    169169    Just (body, summary) -> do 
    170         isMinor <- fmap (maybe True $ \_ -> False) $ getDataFn $ liftM2 (look "minor") 
     170        isMinor <- fmap (maybe True $ \_ -> False) $ getDataFn $ look "minor" 
    171171        return . toResponse $ printf 
    172172            "You submitted a %d-byte document with the summary %s. This is%s a minor revision.\n"