snoyberg/keter
1
1
Fork 0
mirror of https://github.com/snoyberg/keter.git synced 2024-12-11 19:57:29 +03:00
Code Issues Projects Releases Wiki Activity

Deep wildcards #32

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-08 18:20:11 +03:00
parent fcd9c167b3
commit cb50d581c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Keter/LabelMap.hs
View File

@ -224,7 +224,7 @@ lookupTree [] _ = Nothing
lookupTree _ EmptyLabelMap = Nothing lookupTree _ EmptyLabelMap = Nothing
lookupTree [l] (Static t) = Map.lookup l t >>= getPortEntry lookupTree [l] (Static t) = Map.lookup l t >>= getPortEntry
lookupTree [_] (Wildcard w) = getPortEntry $ w lookupTree (_:_) (Wildcard w) = getPortEntry $ w
lookupTree [l] (WildcardExcept w t) = lookupTree [l] (WildcardExcept w t) =
case Map.lookup l t >>= getPortEntry of case Map.lookup l t >>= getPortEntry of
Just e -> Just e Just e -> Just e