packages feed

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 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"