Merge pull request #5 from safareli/patch-2

add show instance

Author: Risto-Stevcev

src/ExitCodes.purs

@@ -1,6 +1,6 @@
 module ExitCodes (ExitCode(..)) where
 
-import Prelude (class Eq, class Ord, class Bounded, (+))
+import Prelude
 import Data.Enum (class BoundedEnum, class Enum, Cardinality(..))
 import Data.Maybe (Maybe(..))
 
@@ -45,6 +45,40 @@ data ExitCode
 
 derive instance eqExitCode :: Eq ExitCode
 derive instance ordExitCode :: Ord ExitCode
+instance showExitCode :: Show ExitCode where
+  show = case _ of
+    Success -> "Success"
+    Error -> "Error"
+    MisuseOfShellBuiltins -> "MisuseOfShellBuiltins"
+    CLIUsageError -> "CLIUsageError"
+    DataFormatError -> "DataFormatError"
+    CannotOpenInput -> "CannotOpenInput"
+    AddresseeUnknown -> "AddresseeUnknown"
+    HostNameUnknown -> "HostNameUnknown"
+    ServiceUnavailable -> "ServiceUnavailable"
+    InternalSoftwareError -> "InternalSoftwareError"
+    SystemError -> "SystemError"
+    CriticalOSFileMissing -> "CriticalOSFileMissing"
+    CannotCreateOutputFile -> "CannotCreateOutputFile"
+    IOError -> "IOError"
+    TemporaryFailure -> "TemporaryFailure"
+    RemoteError -> "RemoteError"
+    PermissionDenied -> "PermissionDenied"
+    ConfigurationError -> "ConfigurationError"
+    CannotExecute -> "CannotExecute"
+    CommandNotFound -> "CommandNotFound"
+    InvalidExitArgument -> "InvalidExitArgument"
+    SIGHUP -> "SIGHUP"
+    SIGINT -> "SIGINT"
+    SIGQUIT -> "SIGQUIT"
+    SIGILL -> "SIGILL"
+    SIGABRT -> "SIGABRT"
+    SIGFPE -> "SIGFPE"
+    SIGKILL -> "SIGKILL"
+    SIGSEGV -> "SIGSEGV"
+    SIGPIPE -> "SIGPIPE"
+    SIGALRM -> "SIGALRM"
+    SIGTERM -> "SIGTERM"
 
 instance boundedExitCode :: Bounded ExitCode where
   bottom = Success