primitiveTypes :: [P.Parser AvroType]
primitiveTypes = map f [ "null", "boolean", "int", "long", "float", "double", "bytes", "string"]
    where
        f :: String -> P.Parser AvroType
        f s = do
            ps <- P.string . B.pack $ s
            return (typeRepToType ps)
primitiveTypes :: [P.Parser AvroType]
primitiveTypes = map f [ "null", "boolean", "int", "long", "float", "double", "bytes", "string"]
    where
        f :: String -> P.Parser AvroType
        f s = do
            ps <- P.string . B.pack $ s
            return (typeRepToType ps)
primitiveTypes = map f [ "null", "boolean", "int", "long", "float", "double", "bytes", "string"]
    where
        f :: String -> P.Parser AvroType
        f s = do
            ps <- P.string . B.pack $ s
            return (typeRepToType ps)