diff options
| author | Akshay Nair <phenax5@gmail.com> | 2025-10-03 15:48:49 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2025-10-03 15:55:29 +0530 |
| commit | a3d5295ee745ab851c28d0a53147cbad65a7805f (patch) | |
| tree | f1771baa2748700e3045e00344d53a5782bd48c0 /lib/Daffm/View.hs | |
| parent | dd048c390f8762e7701572c4e319f22df06aeb75 (diff) | |
| download | daffm-a3d5295ee745ab851c28d0a53147cbad65a7805f.tar.gz daffm-a3d5295ee745ab851c28d0a53147cbad65a7805f.zip | |
Refactor event module with actions
Diffstat (limited to 'lib/Daffm/View.hs')
| -rw-r--r-- | lib/Daffm/View.hs | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lib/Daffm/View.hs b/lib/Daffm/View.hs index 443d017..906fe26 100644 --- a/lib/Daffm/View.hs +++ b/lib/Daffm/View.hs @@ -38,14 +38,16 @@ fileItemView sel fileInfo@(FileInfo {fileSize, fileType, fileMode}) = fileSizeView = str . prettyFileSize . fromIntegral fileTypeView = str . showFileType fileModeView = str . showFileMode - showFileType Directory = "dir" - showFileType SymbolicLink = "link" - showFileType UnixSocket = "sock" - showFileType NamedPipe = "pipe" - showFileType CharacterDevice = "cdev" - showFileType BlockDevice = "bdev" - showFileType RegularFile = "file" - showFileType UnknownFileType = "?" + +showFileType :: FileType -> String +showFileType Directory = "dir" +showFileType SymbolicLink = "link" +showFileType UnixSocket = "sock" +showFileType NamedPipe = "pipe" +showFileType CharacterDevice = "cdev" +showFileType BlockDevice = "bdev" +showFileType RegularFile = "file" +showFileType UnknownFileType = "?" showFileMode :: FileMode -> String showFileMode mode = permchars |