2023-10-12 13:01:36 +00:00
|
|
|
module Main where
|
|
|
|
|
|
2023-10-12 14:37:54 +00:00
|
|
|
import System.PosixCompat.Types
|
|
|
|
|
import System.PosixCompat.Files
|
|
|
|
|
|
|
|
|
|
getFileSize :: FilePath -> IO FileOffset
|
|
|
|
|
getFileSize = (fileSize <$>) . getFileStatus
|
|
|
|
|
|
|
|
|
|
getFolderSize :: FilePath -> IO FileOffset
|
|
|
|
|
getFolderSize path = undefined
|
|
|
|
|
|
2023-10-12 13:01:36 +00:00
|
|
|
main :: IO ()
|
2023-10-12 14:37:54 +00:00
|
|
|
main = do
|
|
|
|
|
putStrLn "Hello, Haskell!"
|
