Add Show and Eq instances for FileFlags

Author: hdgarrood

src/Node/FS.purs

@@ -25,6 +25,23 @@ data FileFlags = R | R_PLUS | RS | RS_PLUS
                | W | WX | W_PLUS | WX_PLUS
                | A | AX | A_PLUS | AX_PLUS
 
+instance showFileFlags :: Show FileFlags where
+  show R       = "R"
+  show R_PLUS  = "R_PLUS"
+  show RS      = "RS"
+  show RS_PLUS = "RS_PLUS"
+  show W       = "W"
+  show WX      = "WX"
+  show W_PLUS  = "W_PLUS"
+  show WX_PLUS = "WX_PLUS"
+  show A       = "A"
+  show AX      = "AX"
+  show A_PLUS  = "A_PLUS"
+  show AX_PLUS = "AX_PLUS"
+
+instance eqFileFlags :: Eq FileFlags where
+  eq x y = show x == show y
+
 fileFlagsToNode :: FileFlags -> String
 fileFlagsToNode ff = case ff of
   R       -> "r"