e70493f...trunk · typeable/cassava-streams

.envrcnew file+10

@@ -0,0 +1,10 @@

1+# -*- sh -*-

2+

3+# Don't let cabal leak state to other projects:

4+export CABAL_DIR=$(pwd)/.cabal

5+

6+# Load in the shell.nix file:

7+use nix

8+

9+# Reload if these files change:

10+watch_file nix/sources.json

.github/workflows/analysis.ymlnew file+22

@@ -0,0 +1,22 @@

1+name: Analysis

2+on:

3+ pull_request:

4+jobs:

5+ check:

6+ name: pre-merge-checks

7+ runs-on: ubuntu-latest

8+ steps:

9+ - name: Clone Repository

10+ uses: actions/checkout@v2

11+

12+ - name: Setup Haskell

13+ id: setup-haskell-cabal

14+ uses: actions/setup-haskell@v1.1.3

15+ with:

16+ ghc-version: 8.8

17+

18+ - name: Cabal Check

19+ run: cabal check

20+

21+ - name: Lint

22+ run: curl -sSL https://raw.github.com/ndmitchell/hlint/master/misc/run.sh | sh -s .

.github/workflows/tests.ymlnew file+63

@@ -0,0 +1,63 @@

1+name: CI

2+on:

3+ pull_request:

4+jobs:

5+ cabal:

6+ name: ${{ matrix.os }} / ghc-${{ matrix.ghc }}

7+ runs-on: ${{ matrix.os }}

8+ strategy:

9+ fail-fast: false

10+ matrix:

11+ os: [ubuntu-latest, macOS-latest, windows-latest]

12+ cabal: ["3.2"]

13+ ghc: ["8.6.5", "8.8.4", "8.10.2"]

14+ # Newer versions of GHC are broken on Windows:

15+ # https://gitlab.haskell.org/ghc/ghc/-/issues/17926

16+ exclude:

17+ - os: windows-latest

18+ ghc: "8.8.4"

19+ - os: windows-latest

20+ ghc: "8.10.2"

21+ steps:

22+ - name: Clone Repository

23+ uses: actions/checkout@v2

24+

25+ - name: Setup Haskell

26+ id: setup-haskell-cabal

27+ uses: actions/setup-haskell@v1.1.3

28+ with:

29+ ghc-version: ${{ matrix.ghc }}

30+ cabal-version: ${{ matrix.cabal }}

31+

32+ - name: Configure and Freeze for Cache

33+ run: |

34+ cabal configure --enable-tests --enable-benchmarks --test-show-details=direct -ftutorial

35+ cabal freeze

36+

37+ - name: Cache ~/.cabal/store

38+ uses: actions/cache@v1

39+ with:

40+ path: ${{ steps.setup-haskell-cabal.outputs.cabal-store }}

41+ key: ${{ runner.os }}-${{ matrix.ghc }}-${{ hashFiles('cabal.project.freeze') }}

42+

43+ - name: Build

44+ run: cabal build '--build-log=logs/$pkgid'

45+

46+ - name: Test

47+ run: cabal test

48+

49+ - name: Upload Build Logs on Failure

50+ uses: actions/upload-artifact@v2

51+ if: failure()

52+ with:

53+ name: logs-${{ matrix.os }}-ghc${{ matrix.ghc }}

54+ path: logs/

55+

56+ - name: Install

57+ run: cabal install --installdir=artifacts --install-method=copy

58+

59+ - name: Upload Artifacts

60+ uses: actions/upload-artifact@v2

61+ with:

62+ name: ${{ matrix.os }}-ghc${{ matrix.ghc }}

63+ path: artifacts/

.gitignore+2

@@ -2,3 +2,5 @@

22/.stack-work

33/build/.stack-work

44/dist

5+/result

6+/.cabal/

CHANGES.md+9−13

@@ -1,18 +1,6 @@

11# Change Log / Release Notes

22

3−## 0.3.0.2 (March 20, 2018)

4−

5− * Updated to LTS Haskell 11.1

6−

7− * Bumped dependencies

8−

9−## 0.3.0.1 (April 14, 2017)

10−

11− * Updated to LTS Haskell 8.9

12−

13− * Bumped dependencies

14−

15−## 0.3.0.0 (August 11, 2016)

3+## 0.3 (August 11, 2016)

164

175 * Add some additional (convenience) exports from `Data.Csv`. (Thanks

186 goes to Florian Hofmann.)

@@ -21,6 +9,14 @@

219

2210 * Updated to LTS Haskell 6.7

2311

12+ * Minor updates:

13+

14+ - 0.3.0.1 (April 14, 2017): Updated dependencies

15+ - 0.3.0.2 (March 20, 2018): Updated dependencies

16+ - 0.3.0.3 (October 09, 2018): Updated dependencies

17+ - 0.3.0.4 (April 15, 2019): Updated dependencies

18+ - 0.3.0.5 (October 29, 2020): Update dependencies

19+

2420## 0.2.0.0 (February 8, 2016)

2521

2622 * Compile with GHC 7.10.3

LICENSE+1−1

@@ -1,4 +1,4 @@

22

33All rights reserved.

44

README.md+4

@@ -1,5 +1,9 @@

11# cassava-streams

22

3+[![CI](https://github.com/pjones/cassava-streams/workflows/CI/badge.svg)](https://github.com/pjones/cassava-streams/actions)

4+[![GitHub tag (latest by date)](https://img.shields.io/github/v/tag/pjones/cassava-streams?label=release)](https://github.com/pjones/cassava-streams/releases)

5+[![Hackage](https://img.shields.io/hackage/v/cassava-streams)](https://hackage.haskell.org/package/cassava-streams)

6+

37[io-streams][] interface for the [cassava][] CSV library.

48

59[io-streams]: http://hackage.haskell.org/package/io-streams

cassava-streams.cabal+49−63

@@ -1,18 +1,17 @@

1−--------------------------------------------------------------------------------

2−name: cassava-streams

3−version: 0.3.0.2

4−synopsis: io-streams interface for the cassava CSV library.

5−license: BSD3

6−license-file: LICENSE

7−author: Peter Jones <pjones@devalot.com>

8−maintainer: Peter Jones <pjones@devalot.com>

10−category: Data, Text, CSV, IO-Streams

11−build-type: Simple

12−cabal-version: 1.18

13−tested-with: GHC==7.10.3, GHC==8.0.2

14−homepage: https://github.com/pjones/cassava-streams

15−bug-reports: https://github.com/pjones/cassava-streams/issues

1+cabal-version: 2.2

2+name: cassava-streams

3+version: 0.3.0.5

4+synopsis: io-streams interface for the cassava CSV library.

5+license: BSD-3-Clause

6+license-file: LICENSE

7+author: Peter Jones <pjones@devalot.com>

8+maintainer: Peter Jones <pjones@devalot.com>

10+category: Data, Text, CSV, IO-Streams

11+build-type: Simple

12+homepage: https://github.com/pjones/cassava-streams

13+bug-reports: https://github.com/pjones/cassava-streams/issues

14+tested-with: GHC ==8.6.5 || ==8.8.4 || ==8.10.2

1615description:

1716 The cassava-streams library glues togeter the cassava CSV library

1817 and the io-streams streaming library.

@@ -24,82 +23,69 @@ extra-source-files:

2423 README.md

2524 CHANGES.md

2625 test/*.csv

27− stack.yaml

2826

2927--------------------------------------------------------------------------------

3028source-repository head

3129 type: git

3230 location: https://github.com/pjones/cassava-streams.git

3331

34−--------------------------------------------------------------------------------

35−flag maintainer

36− description: Enable settings for the package maintainer.

37− manual: True

38− default: False

39−

4032--------------------------------------------------------------------------------

4133flag tutorial

4234 description: Build the tutorial binary (useful for profiling).

43− manual: True

44− default: False

35+ manual: True

36+ default: False

37+

38+--------------------------------------------------------------------------------

39+common dependencies

40+ build-depends:

41+ , base >=4.8 && <5.0

42+ , bytestring >=0.10 && <0.12

43+ , cassava >=0.4 && <0.6

44+ , io-streams >=1.1 && <1.6

45+ , vector >=0.10 && <0.14

4546

4647--------------------------------------------------------------------------------

4748library

49+ import: dependencies

4850 exposed-modules:

4951 System.IO.Streams.Csv

5052 System.IO.Streams.Csv.Tutorial

53+

5154 other-modules:

52− System.IO.Streams.Csv.Encode

5355 System.IO.Streams.Csv.Decode

56+ System.IO.Streams.Csv.Encode

5457

55− hs-source-dirs: src

58+ hs-source-dirs: src

5659 default-language: Haskell2010

57− ghc-options: -Wall -fwarn-incomplete-uni-patterns

58−

59− if flag(maintainer)

60− ghc-options: -Werror

61−

62− build-depends: base >= 4.8 && < 5.0

63− , bytestring >= 0.10 && < 0.11

64− , cassava >= 0.4 && < 0.6

65− , io-streams >= 1.1 && < 1.6

66− , vector >= 0.10 && < 0.13

60+ ghc-options: -Wall -fwarn-incomplete-uni-patterns

61+ build-depends:

6762

6863--------------------------------------------------------------------------------

6964executable tutorial

7065 default-language: Haskell2010

71− hs-source-dirs: bin

72− main-is: tutorial.hs

73− ghc-options: -Wall -fwarn-incomplete-uni-patterns -rtsopts

74−

75− if flag(maintainer)

76− ghc-options: -Werror

77− ghc-prof-options: -fprof-auto-top -fprof-cafs

66+ hs-source-dirs: bin

67+ main-is: tutorial.hs

68+ ghc-options: -Wall -fwarn-incomplete-uni-patterns -rtsopts

7869

7970 if !flag(tutorial)

8071 buildable: False

72+

8173 else

82− build-depends: base

83− , cassava-streams

84− , io-streams

74+ build-depends:

75+ , base

76+ , cassava-streams

77+ , io-streams

8578

8679--------------------------------------------------------------------------------

8780test-suite test

88− type: exitcode-stdio-1.0

81+ import: dependencies

82+ type: exitcode-stdio-1.0

8983 default-language: Haskell2010

90− hs-source-dirs: test

91− main-is: test.hs

92− ghc-options: -Wall -fwarn-incomplete-uni-patterns

93−

94− if flag(maintainer)

95− ghc-options: -Werror

96−

97− build-depends: base

98− , QuickCheck >= 2.7 && < 3.0

99− , bytestring

100− , cassava

101− , cassava-streams

102− , io-streams

103− , tasty >= 0.8 && < 1.1

104− , tasty-quickcheck >= 0.8 && < 1.0

105− , vector

84+ hs-source-dirs: test

85+ main-is: test.hs

86+ ghc-options: -Wall -fwarn-incomplete-uni-patterns

87+ build-depends:

88+ , cassava-streams

89+ , QuickCheck >=2.7 && <3.0

90+ , tasty >=0.8 && <1.5

91+ , tasty-quickcheck >=0.8 && <1.3

cassava-streams.nixdeleted−20

@@ -1,20 +0,0 @@

1−{ mkDerivation, base, bytestring, cassava, io-streams, QuickCheck

2−, stdenv, tasty, tasty-quickcheck, vector

3−}:

4−mkDerivation {

5− pname = "cassava-streams";

6− version = "0.3.0.2";

7− src = ./.;

8− isLibrary = true;

9− isExecutable = true;

10− libraryHaskellDepends = [

11− base bytestring cassava io-streams vector

12− ];

13− testHaskellDepends = [

14− base bytestring cassava io-streams QuickCheck tasty

15− tasty-quickcheck vector

16− ];

17− homepage = "https://github.com/pjones/cassava-streams";

18− description = "io-streams interface for the cassava CSV library";

19− license = stdenv.lib.licenses.bsd3;

20−}

default.nix+9−18

@@ -1,20 +1,11 @@

1−{ pkgs ? (import <nixpkgs> {}).pkgs }:

1+{ sources ? import ./nix/sources.nix

2+, pkgs ? import sources.nixpkgs { }

3+, nix-hs ? import sources.nix-hs { inherit pkgs; }

4+, ghc ? "default"

5+}:

26

3−let

4− # List any extra packages you want available while your package is

5− # building or while in a nix shell:

6− extraPackages = with pkgs; [ ];

7−

8− # Helpful if you want to override any Haskell packages:

9− haskell = pkgs.haskellPackages;

10−in

11−

12−# Load the local nix file and use the overrides from above:

13−haskell.callPackage ./cassava-streams.nix {

14− mkDerivation = { buildTools ? []

15− , ...

16− }@args:

17− haskell.mkDerivation (args // {

18− buildTools = buildTools ++ extraPackages;

19− });

7+nix-hs {

8+ cabal = ./cassava-streams.cabal;

9+ flags = [ "tutorial" ];

10+ compiler = ghc;

2011}

nix/sources.jsonnew file+38

@@ -0,0 +1,38 @@

1+{

2+ "niv": {

3+ "branch": "master",

4+ "description": "Easy dependency management for Nix projects",

5+ "homepage": "https://github.com/nmattia/niv",

6+ "owner": "nmattia",

7+ "repo": "niv",

8+ "rev": "f73bf8d584148677b01859677a63191c31911eae",

9+ "sha256": "0jlmrx633jvqrqlyhlzpvdrnim128gc81q5psz2lpp2af8p8q9qs",

10+ "type": "tarball",

11+ "url": "https://github.com/nmattia/niv/archive/f73bf8d584148677b01859677a63191c31911eae.tar.gz",

12+ "url_template": "https://github.com/<owner>/<repo>/archive/<rev>.tar.gz"

13+ },

14+ "nix-hs": {

15+ "branch": "release-20.09",

16+ "description": "Haskell + nixpkgs = nix-hs",

17+ "homepage": "",

18+ "owner": "pjones",

19+ "repo": "nix-hs",

20+ "rev": "67163bb02a8791d79136ba6914b6d6dad594533b",

21+ "sha256": "0f7sjh45wxbf2m76l37f4l4v4dkq32dm599p85acx53324nr9y8z",

22+ "type": "tarball",

23+ "url": "https://github.com/pjones/nix-hs/archive/67163bb02a8791d79136ba6914b6d6dad594533b.tar.gz",

24+ "url_template": "https://github.com/<owner>/<repo>/archive/<rev>.tar.gz"

25+ },

26+ "nixpkgs": {

27+ "branch": "nixos-20.09",

28+ "description": "Nix Packages collection",

29+ "homepage": "",

30+ "owner": "NixOS",

31+ "repo": "nixpkgs",

32+ "rev": "edb26126d98bc696f4f3e206583faa65d3d6e818",

33+ "sha256": "1cl4ka4kk7kh3bl78g06dhiidazf65q8miyzaxi9930d6gwyzkci",

34+ "type": "tarball",

35+ "url": "https://github.com/NixOS/nixpkgs/archive/edb26126d98bc696f4f3e206583faa65d3d6e818.tar.gz",

36+ "url_template": "https://github.com/<owner>/<repo>/archive/<rev>.tar.gz"

37+ }

38+}

nix/sources.nixnew file+134

@@ -0,0 +1,134 @@

1+# This file has been generated by Niv.

2+

3+let

4+

5+ #

6+ # The fetchers. fetch_<type> fetches specs of type <type>.

7+ #

8+

9+ fetch_file = pkgs: spec:

10+ if spec.builtin or true then

11+ builtins_fetchurl { inherit (spec) url sha256; }

12+ else

13+ pkgs.fetchurl { inherit (spec) url sha256; };

14+

15+ fetch_tarball = pkgs: spec:

16+ if spec.builtin or true then

17+ builtins_fetchTarball { inherit (spec) url sha256; }

18+ else

19+ pkgs.fetchzip { inherit (spec) url sha256; };

20+

21+ fetch_git = spec:

22+ builtins.fetchGit { url = spec.repo; inherit (spec) rev ref; };

23+

24+ fetch_builtin-tarball = spec:

25+ builtins.trace

26+ ''

27+ WARNING:

28+ The niv type "builtin-tarball" will soon be deprecated. You should

29+ instead use `builtin = true`.

30+

31+ $ niv modify <package> -a type=tarball -a builtin=true

32+ ''

33+ builtins_fetchTarball { inherit (spec) url sha256; };

34+

35+ fetch_builtin-url = spec:

36+ builtins.trace

37+ ''

38+ WARNING:

39+ The niv type "builtin-url" will soon be deprecated. You should

40+ instead use `builtin = true`.

41+

42+ $ niv modify <package> -a type=file -a builtin=true

43+ ''

44+ (builtins_fetchurl { inherit (spec) url sha256; });

45+

46+ #

47+ # Various helpers

48+ #

49+

50+ # The set of packages used when specs are fetched using non-builtins.

51+ mkPkgs = sources:

52+ let

53+ sourcesNixpkgs =

54+ import (builtins_fetchTarball { inherit (sources.nixpkgs) url sha256; }) {};

55+ hasNixpkgsPath = builtins.any (x: x.prefix == "nixpkgs") builtins.nixPath;

56+ hasThisAsNixpkgsPath = <nixpkgs> == ./.;

57+ in

58+ if builtins.hasAttr "nixpkgs" sources

59+ then sourcesNixpkgs

60+ else if hasNixpkgsPath && ! hasThisAsNixpkgsPath then

61+ import <nixpkgs> {}

62+ else

63+ abort

64+ ''

65+ Please specify either <nixpkgs> (through -I or NIX_PATH=nixpkgs=...) or

66+ add a package called "nixpkgs" to your sources.json.

67+ '';

68+

69+ # The actual fetching function.

70+ fetch = pkgs: name: spec:

71+

72+ if ! builtins.hasAttr "type" spec then

73+ abort "ERROR: niv spec ${name} does not have a 'type' attribute"

74+ else if spec.type == "file" then fetch_file pkgs spec

75+ else if spec.type == "tarball" then fetch_tarball pkgs spec

76+ else if spec.type == "git" then fetch_git spec

77+ else if spec.type == "builtin-tarball" then fetch_builtin-tarball spec

78+ else if spec.type == "builtin-url" then fetch_builtin-url spec

79+ else

80+ abort "ERROR: niv spec ${name} has unknown type ${builtins.toJSON spec.type}";

81+

82+ # Ports of functions for older nix versions

83+

84+ # a Nix version of mapAttrs if the built-in doesn't exist

85+ mapAttrs = builtins.mapAttrs or (

86+ f: set: with builtins;

87+ listToAttrs (map (attr: { name = attr; value = f attr set.${attr}; }) (attrNames set))

88+ );

89+

90+ # fetchTarball version that is compatible between all the versions of Nix

91+ builtins_fetchTarball = { url, sha256 }@attrs:

92+ let

93+ inherit (builtins) lessThan nixVersion fetchTarball;

94+ in

95+ if lessThan nixVersion "1.12" then

96+ fetchTarball { inherit url; }

97+ else

98+ fetchTarball attrs;

99+

100+ # fetchurl version that is compatible between all the versions of Nix

101+ builtins_fetchurl = { url, sha256 }@attrs:

102+ let

103+ inherit (builtins) lessThan nixVersion fetchurl;

104+ in

105+ if lessThan nixVersion "1.12" then

106+ fetchurl { inherit url; }

107+ else

108+ fetchurl attrs;

109+

110+ # Create the final "sources" from the config

111+ mkSources = config:

112+ mapAttrs (

113+ name: spec:

114+ if builtins.hasAttr "outPath" spec

115+ then abort

116+ "The values in sources.json should not have an 'outPath' attribute"

117+ else

118+ spec // { outPath = fetch config.pkgs name spec; }

119+ ) config.sources;

120+

121+ # The "config" used by the fetchers

122+ mkConfig =

123+ { sourcesFile ? ./sources.json

124+ , sources ? builtins.fromJSON (builtins.readFile sourcesFile)

125+ , pkgs ? mkPkgs sources

126+ }: rec {

127+ # The sources, i.e. the attribute set of spec name to spec

128+ inherit sources;

129+

130+ # The "pkgs" (evaluated nixpkgs) to use for e.g. non-builtin fetchers

131+ inherit pkgs;

132+ };

133+in

134+mkSources (mkConfig {}) // { __functor = _: settings: mkSources (mkConfig settings); }

shell.nixnew file+2

@@ -0,0 +1,2 @@

1+# Load an interactive environment:

2+(import ./. {}).interactive

src/System/IO/Streams/Csv/Decode.hs+1−1

@@ -37,7 +37,7 @@ import qualified System.IO.Streams as Streams

3737--------------------------------------------------------------------------------

3838-- | Exception thrown when stream decoding cannot continue due to an

3939-- error.

40−data StreamDecodingError = StreamDecodingError String

40+newtype StreamDecodingError = StreamDecodingError String

4141 deriving (Typeable, Show)

4242

4343instance Exception StreamDecodingError

stack.yamldeleted−9

@@ -1,9 +0,0 @@

1−resolver: lts-11.1

2−

3−packages:

4− - ./

5−

6−flags:

7− cassava-streams:

8− maintainer: true

9− tutorial: true

test/test.hs+1−1

@@ -70,7 +70,7 @@ roundTrip is os recs = do

7070 Streams.connect sourceList encoder

7171

7272 -- Decode from ByteString.

73− decoder <- fmap BS.concat encoded >>= Streams.fromByteString >>= is

73+ decoder <- (encoded >>= Streams.fromByteString . BS.concat) >>= is

7474 (decodeStream, decoded) <- Streams.listOutputStream

7575 Streams.connect decoder decodeStream

7676 decoded