suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed a slightly confusing inner predicate name for findMeta

Browse Source
This commit is contained in:
Neil Brown 2007-08-20 22:06:26 +00:00
parent 34c61702de
commit bd0af91813
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Types.hs
View File

@ -290,10 +290,10 @@ makeConstant m n = A.Literal m A.Int $ A.IntLiteral m (show n)
-- | Find the first Meta value in some part of the AST.
findMeta :: (Data t, Typeable t) => t -> Meta
findMeta e = head $ gmapQ (mkQ emptyMeta findMeta) e
findMeta e = head $ gmapQ (mkQ emptyMeta findMeta') e
where
findMeta :: Meta -> Meta
findMeta m = m
findMeta' :: Meta -> Meta
findMeta' m = m
-- | Is a conversion between two types precise (i.e. do you need to specify
-- ROUND or TRUNC when doing it)?