From a3d5295ee745ab851c28d0a53147cbad65a7805f Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Fri, 3 Oct 2025 15:48:49 +0530 Subject: Refactor event module with actions --- lib/Daffm/View.hs | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'lib/Daffm/View.hs') 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 -- cgit v1.3.1