areaHistogramParser :: Parser ImageQuery
areaHistogramParser = do
    string "output_area_histogram"
    spaces
    binsize <- digits
    spaces
    power <- powerParser
    return (AreaHistogram (read binsize) power)
areaHistogramParser :: Parser ImageQuery
areaHistogramParser = do
    string "output_area_histogram"
    spaces
    binsize <- digits
    spaces
    power <- powerParser
    return (AreaHistogram (read binsize) power)
areaHistogramParser = do
    string "output_area_histogram"
    spaces
    binsize <- digits
    spaces
    power <- powerParser
    return (AreaHistogram (read binsize) power)