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:
parent
2ecde4fea5
commit
10057518cb
7 changed files with 82 additions and 14 deletions
|
|
@ -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{..}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue