403Webshell
Server IP : 82.208.35.60  /  Your IP : 216.73.216.238
Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31
System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64
User : studiokobylisy_cz ( 1008)
PHP Version : 7.3.31
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : OFF  |  Perl : OFF  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/ports/math/hs-penrose/files/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/ports/math/hs-penrose/files/patch-docopt-0.7.0.5_System_Console_Docopt_Public.hs
--- docopt-0.7.0.5/System/Console/Docopt/Public.hs.orig	2020-04-11 09:34:12 UTC
+++ docopt-0.7.0.5/System/Console/Docopt/Public.hs
@@ -192,7 +192,7 @@ isPresentM args o = return $ isPresent args o
 {-# DEPRECATED getFirstArg "Use 'getAllArgs' instead" #-}
 getFirstArg :: Monad m => Arguments -> Option -> m String
 getFirstArg args opt =
-  let failure = fail $ "no argument given: " ++ show opt
+  let failure = error $ "no argument given: " ++ show opt
   in  case opt `M.lookup` args of
         Nothing  -> failure
         Just val -> case val of

Youez - 2016 - github.com/yon3zu
LinuXploit