mirror of
https://git.freebsd.org/ports.git
synced 2025-05-25 07:26:29 -04:00
11 lines
529 B
Haskell
11 lines
529 B
Haskell
--- docopt-0.7.0.5/System/Console/Docopt/QQ.hs.orig 2016-11-10 15:48:52 UTC
|
|
+++ docopt-0.7.0.5/System/Console/Docopt/QQ.hs
|
|
@@ -56,7 +56,7 @@ docopt = QuasiQuoter { quoteExp = docoptExp
|
|
, quotePat = unsupported "Pattern"
|
|
, quoteType = unsupported "Type"
|
|
}
|
|
- where unsupported = fail . (++ " context unsupported")
|
|
+ where unsupported = error . (++ " context unsupported")
|
|
|
|
-- | Same as 'docopt', but parses the given file instead of a literal
|
|
-- string.
|