fix bug caught by test suite
This commit is contained in:
parent
13db029ac0
commit
5a5873e052
2 changed files with 3 additions and 1 deletions
|
@ -344,7 +344,7 @@ parseKeyVariety "URL" = URLKey
|
||||||
parseKeyVariety b
|
parseKeyVariety b
|
||||||
| "X" `S.isPrefixOf` b =
|
| "X" `S.isPrefixOf` b =
|
||||||
let b' = S.tail b
|
let b' = S.tail b
|
||||||
in if S.last b' == fromIntegral (ord 'E')
|
in if not (S.null b') && S.last b' == fromIntegral (ord 'E')
|
||||||
then ExternalKey (S.init b') (HasExt True)
|
then ExternalKey (S.init b') (HasExt True)
|
||||||
else ExternalKey b' (HasExt False)
|
else ExternalKey b' (HasExt False)
|
||||||
| otherwise = OtherKey b
|
| otherwise = OtherKey b
|
||||||
|
|
|
@ -33,3 +33,5 @@ Thanks in advance.
|
||||||
|
|
||||||
[[!meta author=kyle]]
|
[[!meta author=kyle]]
|
||||||
[[!tag projects/datalad]]
|
[[!tag projects/datalad]]
|
||||||
|
|
||||||
|
> [[fixed|done]] and rest of test suite passing --[[Joey]]
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue