Implement a status line

The status line shows information about the shown file, such as size,
modification time and permissions.
This commit is contained in:
Alexander Kobjolke 2023-09-08 22:04:25 +02:00
parent 2ecde4fea5
commit 10057518cb
7 changed files with 82 additions and 14 deletions

View file

@ -2,7 +2,7 @@
-- | FileInfo defines a data type that captures important information about a
-- file such as timestamps and permissions.
module HCat.FileInfo (FileInfo, getFileInfo) where
module HCat.FileInfo where
import Data.Text (Text)
import Data.Text qualified as T
@ -42,4 +42,4 @@ getFileInfo path = do
fileWritable = Directory.writable perms
fileExecutable = Directory.executable perms
filePath = T.pack path
return FileInfo{..}
pure FileInfo{..}