"default" expressions in persistentmodels files no longer parse as before

Abierto
  • ¿Algo no está bien?
#1,620 0 comentarios 0 reacciones 0 asignados Ver en GitHub

Nadie ha tomado este issue todavía.

Evaluación

Dificultad
3/5
Tiempo estimado
1-2 días
Aptitud para principiantes
42/100
Tipo de issue
Error
Claridad
Bastante claro
Estado de actividad
Estancado
Stack tecnológico
haskell, postgresql
Área
databases, tooling

Línea de trabajo

Empieza con el reproductor persistent-default-bug.hs y ejecútalo con ghc --make y la biblioteca persistent adecuada instalada. Rastrea la cuasiquotation persistLowerCase y cómo gestiona las expresiones predeterminadas. Se considera terminado cuando el valor predeterminado to_jsonb('{"!v":0}'::json) se analiza correctamente y el reproductor compila sin requerir el workaround.

Escrito por el modelo de indexación a partir del texto del issue.

Descripción

Something changed between persistent-2.15.1.0 & persistent-2.16.0.0 (and later); "default" expressions that used to parse now fail to compile.

The quasiquoter does not like the expression default=to_jsonb('{"!v":0}'::json) under 2.18; fortunately there is a workaround in this case (default='{"!v":0}'::jsonb) but that might also trigger an unnecessary migration.

I've tested with GHC 9.10.3 and 9.12.2, with the same results.

This program demonstrates the bug with ghc --make (and the appropriate persistent library installed):

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE UndecidableInstances #-}

module Main where

import Data.Text (Text)
import Database.Persist.TH (mkPersist, persistLowerCase, share, sqlSettings)

share
  [mkPersist sqlSettings]
  [persistLowerCase|
DBThing
  name Text
  metadata1 Text default=to_jsonb('{"!v":0}'::json)
  metadata2 Text default='{"!v":0}'::jsonb
  deriving Show Eq
|]

main :: IO ()
main = pure ()

Compiled as above, GHC will report:

persistent-default-bug.hs:15:21: error: [GHC-39584]
    • persistent-default-bug.hs:4:36:
  |
4 |   metadata1 Text default=to_jsonb('{"!v":0}'::json)
  |                                    ^
unexpected '{'
expecting '!', '"', ''', '(', ')', ',', '-', '.', ':', '[', '\', ']', '_', '~', alphanumeric character, assignment expression, end of input, newline, parenthetical, or plain attribute

    • In the quasi-quotation:
        [persistLowerCase|
DBThing
  name Text
  metadata1 Text default=to_jsonb('{"!v":0}'::json)
  metadata2 Text default='{"!v":0}'::jsonb
  deriving Show Eq
|]
   |
15 |   [persistLowerCase|
   |                     ^...

If metadata1 is commented out, the program compiles as expected.

Lenguaje dominante
Haskell
Estrellas
486
Forks
307
Sin PR fusionados en 30 d

Preparar el entorno

Primeros pasos

  1. Lee el issue completo y luego la guía de contribución del proyecto.
  2. Comenta en el issue que vas a ocuparte — evita que dos personas hagan lo mismo.
  3. Haz un fork del repositorio y trabaja en una rama.
  4. Abre un pull request que haga referencia al número del issue.

Más de yesodweb/persistent

Todos los issues de yesodweb/persistent

Issues similares

Más issues de Haskell

Recibe los nuevos issues en tu correo

Un resumen breve de issues de GitHub para principiantes.