Use undefined instead of const Nothing

philderbeast · philderbeast · commit 45d6bbe3013f · 2024-03-17T11:37:59.000-04:00
Preserve the original behaviour
diff --git a/hackage-security/src/Hackage/Security/TUF/Patterns.hs b/hackage-security/src/Hackage/Security/TUF/Patterns.hs
@@ -323,7 +323,7 @@ _ex1 = matchDelegation del "A/x/y/z.foo"
             )
 
 _ex2 :: Maybe String
-_ex2 = either (const Nothing) (`matchDelegation` "A/x/y/z.foo")
+_ex2 = either undefined (`matchDelegation` "A/x/y/z.foo")
   (parseDelegation "A/*/*/*.foo" "B/*/C/*/*.bar")
 
 _ex3 :: Either String Delegation

Original file line number	Diff line number	Diff line change
`@@ -323,7 +323,7 @@ _ex1 = matchDelegation del "A/x/y/z.foo"`
`323`	`323`	`)`
`324`	`324`
`325`	`325`	`_ex2 :: Maybe String`
`326`		-_ex2 = either (const Nothing) (`matchDelegation` "A/x/y/z.foo")
	`326`	+_ex2 = either undefined (`matchDelegation` "A/x/y/z.foo")
`327`	`327`	`(parseDelegation "A///.foo" "B//C//.bar")`
`328`	`328`
`329`	`329`	`_ex3 :: Either String Delegation`