diff options
| author | bringert <unknown> | 2005-04-21 15:21:02 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-04-21 15:21:02 +0000 |
| commit | 5c9917ff8d18ddaefd5a8bf4b223009747477fd8 (patch) | |
| tree | 46345cb91a8e0fa626a0bf4c03af8f8ef4cad09f /src/GF/Grammar/Lockfield.hs | |
| parent | 3433c978480f112bf04a895d03ec15529796ecce (diff) | |
Fixed module names and imports after giant file move.
Diffstat (limited to 'src/GF/Grammar/Lockfield.hs')
| -rw-r--r-- | src/GF/Grammar/Lockfield.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/src/GF/Grammar/Lockfield.hs b/src/GF/Grammar/Lockfield.hs index 6ad6db206..e2482363b 100644 --- a/src/GF/Grammar/Lockfield.hs +++ b/src/GF/Grammar/Lockfield.hs @@ -5,23 +5,23 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/02/18 19:21:12 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.5 $ +-- > CVS $Date: 2005/04/21 16:22:21 $ +-- > CVS $Author: bringert $ +-- > CVS $Revision: 1.6 $ -- -- Creating and using lock fields in reused resource grammars. -- -- AR 8\/2\/2005 detached from 'compile/MkResource' ----------------------------------------------------------------------------- -module Lockfield (lockRecType, unlockRecord, lockLabel, isLockLabel) where +module GF.Grammar.Lockfield (lockRecType, unlockRecord, lockLabel, isLockLabel) where -import Grammar -import Ident -import Macros -import PrGrammar +import GF.Grammar.Grammar +import GF.Infra.Ident +import GF.Grammar.Macros +import GF.Grammar.PrGrammar -import Operations +import GF.Data.Operations lockRecType :: Ident -> Type -> Err Type lockRecType c t@(RecType rs) = @@ -43,4 +43,4 @@ lockLabel c = LIdent $ "lock_" ++ prt c ---- isLockLabel :: Label -> Bool isLockLabel l = case l of LIdent c -> take 5 c == "lock_" - _ -> False
\ No newline at end of file + _ -> False |