diff options
Diffstat (limited to 'src/GF/Grammar/Lockfield.hs')
| -rw-r--r-- | src/GF/Grammar/Lockfield.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GF/Grammar/Lockfield.hs b/src/GF/Grammar/Lockfield.hs index 66a978770..3e78a48b6 100644 --- a/src/GF/Grammar/Lockfield.hs +++ b/src/GF/Grammar/Lockfield.hs @@ -21,14 +21,13 @@ import qualified Data.ByteString.Char8 as BS import GF.Infra.Ident import GF.Grammar.Grammar import GF.Grammar.Macros -import GF.Grammar.PrGrammar import GF.Data.Operations lockRecType :: Ident -> Type -> Err Type lockRecType c t@(RecType rs) = let lab = lockLabel c in - return $ if elem lab (map fst rs) || elem (prt c) ["String","Int"] + return $ if elem lab (map fst rs) || elem (showIdent c) ["String","Int"] then t --- don't add an extra copy of lock field, nor predef cats else RecType (rs ++ [(lockLabel c, RecType [])]) lockRecType c t = plusRecType t $ RecType [(lockLabel c, RecType [])] |