GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 09:52:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove redundant pattern

Browse Source
This commit is contained in:
Krasimir Angelov
2022-06-23 14:53:58 +02:00
parent 663cca2d06
commit f51f6240b6
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/compiler/GF/Compile/GeneratePMCFG.hs
View File

@@ -313,7 +313,6 @@ mkLinReference gr typ = do
Bad msg -> fail msg Bad msg -> fail msg
Sort s | s == cStr -> return (Just trm) Sort s | s == cStr -> return (Just trm)
QC p -> return Nothing QC p -> return Nothing
RecType [] -> return Nothing
RecType rs -> traverse rs trm RecType rs -> traverse rs trm
_ | Just _ <- isTypeInts ty -> return Nothing _ | Just _ <- isTypeInts ty -> return Nothing
_ -> checkError ("a field in a linearization type cannot be" <+> typ) _ -> checkError ("a field in a linearization type cannot be" <+> typ)