remove redundant pattern

2022-06-23 14:53:58 +02:00
parent 663cca2d06
commit f51f6240b6
1 changed files with 0 additions and 1 deletions
--- a/src/compiler/GF/Compile/GeneratePMCFG.hs
+++ b/src/compiler/GF/Compile/GeneratePMCFG.hs
@@ -313,7 +313,6 @@ mkLinReference gr typ = do
                          Bad msg   -> fail msg
        Sort s | s == cStr -> return (Just trm)
        QC p       -> return Nothing
-        RecType [] -> return Nothing
        RecType rs -> traverse rs trm
        _ | Just _ <- isTypeInts ty -> return Nothing
        _ -> checkError ("a field in a linearization type cannot be" <+> typ)