LIB: fix file type indicators

It seems that PF.regularFileMode matches across symlinks and sockets
too, so we just examine the constructors instead.

Fixes #25

src/Data/DirTree.hs

@@ -784,14 +784,14 @@ packPermissions dt = fromFreeVar (pStr . fileMode) dt
   where
     pStr ffm = typeModeStr ++ ownerModeStr ++ groupModeStr ++ otherModeStr
       where
-        typeModeStr
+        typeModeStr = case dt of
-          | hasFM PF.regularFileMode      = "-"
+          Dir {}       -> "d"
-          | hasFM PF.directoryMode        = "d"
+          RegFile {}   -> "-"
-          | hasFM PF.symbolicLinkMode     = "l"
+          SymLink {}   -> "l"
-          | hasFM PF.socketMode           = "s"
+          BlockDev {}  -> "b"
-          | hasFM PF.blockSpecialMode     = "b"
+          CharDev {}   -> "c"
-          | hasFM PF.characterSpecialMode = "c"
+          NamedPipe {} -> "p"
-          | hasFM PF.namedPipeMode        = "p"
+          Socket {}    -> "s"
         ownerModeStr =    hasFmStr PF.ownerReadMode    "r"
                        ++ hasFmStr PF.ownerWriteMode   "w"
                        ++ hasFmStr PF.ownerExecuteMode "x"