hrfsize 0.0.1 → 0.0.2
raw patch · 4 files changed
+11/−84 lines, 4 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- System.HrfSize: Bytes :: Double -> FileSize
+ System.HrfSize: Bytes :: !Double -> FileSize
- System.HrfSize: GiB :: Double -> FileSize
+ System.HrfSize: GiB :: !Double -> FileSize
- System.HrfSize: KiB :: Double -> FileSize
+ System.HrfSize: KiB :: !Double -> FileSize
- System.HrfSize: MiB :: Double -> FileSize
+ System.HrfSize: MiB :: !Double -> FileSize
- System.HrfSize: TiB :: Double -> FileSize
+ System.HrfSize: TiB :: !Double -> FileSize
Files
- hrfsize.cabal +1/−1
- src/System/HrfSize.hs +6/−2
- stack.yaml +0/−64
- test/Spec.hs +4/−17
hrfsize.cabal view
@@ -1,7 +1,7 @@ cabal-version: 1.12 name: hrfsize-version: 0.0.1+version: 0.0.2 description: Simple Haskell library for determining size of file in human readable format synopsis: File size in human readable format homepage: https://github.com/librerush/hrfsize#readme
src/System/HrfSize.hs view
@@ -8,8 +8,12 @@ withBinaryFile) -- | IEC standard-data FileSize = Bytes Double | KiB Double | MiB Double- | GiB Double | TiB Double+data FileSize+ = Bytes !Double+ | KiB !Double+ | MiB !Double+ | GiB !Double+ | TiB !Double deriving (Show, Eq, Ord) convertSize :: Double -> FileSize
− stack.yaml
@@ -1,64 +0,0 @@-# This file was automatically generated by 'stack init'-#-# Some commonly used options have been documented as comments in this file.-# For advanced use and comprehensive documentation of the format, please see:-# https://docs.haskellstack.org/en/stable/yaml_configuration/--# Resolver to choose a 'specific' stackage snapshot or a compiler version.-# A snapshot resolver dictates the compiler version and the set of packages-# to be used for project dependencies. For example:-#-# resolver: lts-3.5-# resolver: nightly-2015-09-21-# resolver: ghc-7.10.2-#-# The location of a snapshot can be provided as a file or url. Stack assumes-# a snapshot provided as a file might change, whereas a url resource does not.-#-# resolver: ./custom-snapshot.yaml-# resolver: https://example.com/snapshots/2018-01-01.yaml-resolver: lts-13.21--# User packages to be built.-# Various formats can be used as shown in the example below.-#-# packages:-# - some-directory-# - https://example.com/foo/bar/baz-0.0.2.tar.gz-# - location:-# git: https://github.com/commercialhaskell/stack.git-# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a-# - location: https://github.com/commercialhaskell/stack/commit/e7b331f14bcffb8367cd58fbfc8b40ec7642100a-# subdirs:-# - auto-update-# - wai-packages:-- .-# Dependency packages to be pulled from upstream that are not in the resolver-# using the same syntax as the packages field.-# (e.g., acme-missiles-0.3)-# extra-deps: []--# Override default flag values for local packages and extra-deps-# flags: {}--# Extra package databases containing global packages-# extra-package-dbs: []--# Control whether we use the GHC we find on the path-# system-ghc: true-#-# Require a specific version of stack, using version ranges-# require-stack-version: -any # Default-# require-stack-version: ">=1.9"-#-# Override the architecture used by stack, especially useful on Windows-# arch: i386-# arch: x86_64-#-# Extra directories used by stack for building-# extra-include-dirs: [/path/to/dir]-# extra-lib-dirs: [/path/to/dir]-#-# Allow a newer minor version of GHC than the snapshot specifies-# compiler-check: newer-minor
test/Spec.hs view
@@ -1,19 +1,6 @@-import System.HrfSize-import Test.Tasty-import Test.Tasty.HUnit+-- import System.HrfSize+-- import Test.Tasty+-- import Test.Tasty.HUnit main :: IO ()-main = do- f1 <- determineFileSize "/tmp/file1"- f2 <- determineFileSize "/tmp/file2"- defaultMain (tests [f1, f2])---- | Creating files using--- `head -c size /dev/urandom > /tmp/fileN`-tests :: [FileSize] -> TestTree-tests files = testGroup "determineFileSize"- [ testCase "file1" $- MiB 1.95 @?= head files- , testCase "file2" $- Bytes 99.0 @?= head (tail files)- ]+main = putStrLn "Not yet implemented"