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

Simplified the definition of mkPattern slightly

Browse Source
This commit is contained in:
Neil Brown 2008-02-15 17:16:20 +00:00
parent cd6e2175f2
commit e76ab116cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/TreeUtils.hs
View File

@ -211,7 +211,7 @@ getMatchedItems a b
--Therefore the whole function can be viewed as: get the constructor, and map mkPattern over the sub-elements --Therefore the whole function can be viewed as: get the constructor, and map mkPattern over the sub-elements
mkPattern :: (Data a) => a -> Pattern mkPattern :: (Data a) => a -> Pattern
mkPattern x = case ((cast x) :: Maybe Pattern) of mkPattern x = case cast x of
Just x' -> x' Just x' -> x'
Nothing -> Match (toConstr x) (gmapQ mkPattern x) Nothing -> Match (toConstr x) (gmapQ mkPattern x)