Skip to content

Commit

Permalink
some cleaning
Browse files Browse the repository at this point in the history
  • Loading branch information
cartazio committed Jan 8, 2021
1 parent 58fb2a9 commit 6b45823
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 2 deletions.
4 changes: 2 additions & 2 deletions .github/workflows/hs-matrix.yml
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ name: build
# adjust THISPACKAGE to be your package name and then have fun
env:
THISPACKAGE: numerical
CONFIG: --enable-tests --enable-benchmarks
CONFIG: --enable-tests #--enable-benchmarks
defaults:
run:
shell: bash
Expand Down Expand Up @@ -78,7 +78,7 @@ jobs:
- run: cabal build --only-dependencies
- run: cabal build
- run: cabal test
- run: cabal bench
# - run: cabal bench
- run: cabal check
- run: cabal sdist -o `pwd`
- run: cabal v1-install ${THISPACKAGE}*.tar.gz
Expand Down
5 changes: 5 additions & 0 deletions src/Numerical/Array/Shape.hs
Original file line number Diff line number Diff line change
Expand Up @@ -249,6 +249,11 @@ instance (Fun.Functor (Shape r)) => Fun.Functor (Shape ('S r)) where
fmap = \ f (a :* rest) -> f a :* ( Fun.fmap f rest )
{-# INLINE fmap #-}


{-
Shape has the ZipList applicative
-}
instance A.Applicative (Shape 'Z) where
pure = \ _ -> Nil
{-# INLINE pure #-}
Expand Down

0 comments on commit 6b45823

Please sign in to comment.