Skip to content

Commit

Permalink
Use latest Stackage snapshot (#226)
Browse files Browse the repository at this point in the history
* Use latest Stackage snapshot

* Fix doctest for GHC-8.8

* Fix doctest in a consistent way
  • Loading branch information
chshersh authored and vrom911 committed Oct 31, 2019
1 parent a0e1e3e commit bfb5f60
Show file tree
Hide file tree
Showing 3 changed files with 10 additions and 13 deletions.
2 changes: 1 addition & 1 deletion .travis.yml
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ matrix:
- ghc: 8.8.1

# stack
- ghc: 8.6.5
- ghc: 8.8.1
env: STACK_YAML="$TRAVIS_BUILD_DIR/stack.yaml"

install:
Expand Down
19 changes: 8 additions & 11 deletions src/Relude/DeepSeq.hs
Original file line number Diff line number Diff line change
Expand Up @@ -32,12 +32,12 @@ import qualified Control.Exception.Base (evaluate)

{- | Lifted alias for 'Control.Exception.Base.evaluate' with clearer name.
>>> list = [2, 1, 3] :: [Int]
>>> let list = [1..5] :: [Int]
>>> :sprint list
list = _
>>> () <$ evaluateWHNF list
>>> :sprint list
list = _ : _
list = 1 : _
-}
evaluateWHNF :: MonadIO m => a -> m a
evaluateWHNF = liftIO . Control.Exception.Base.evaluate
Expand All @@ -46,13 +46,12 @@ evaluateWHNF = liftIO . Control.Exception.Base.evaluate

{- | Like 'evaluateWHNF' but discards value.
>>> list = [2, 1, 3] :: [Int]
>>> let list = [1..5] :: [Int]
>>> :sprint list
list = _
>>> evaluateWHNF_ list
>>> :sprint list
list = _ : _
list = 1 : _
-}
evaluateWHNF_ :: MonadIO m => a -> m ()
evaluateWHNF_ what = (`seq` ()) <$!> evaluateWHNF what
Expand All @@ -61,13 +60,12 @@ evaluateWHNF_ what = (`seq` ()) <$!> evaluateWHNF what

{- | Alias for @evaluateWHNF . force@ with clearer name.
>>> list = [2, 1, 3] :: [Int]
>>> let list = [1..5] :: [Int]
>>> :sprint list
list = _
>>> () <$ evaluateNF list
>>> :sprint list
list = [2,1,3]
list = [1,2,3,4,5]
-}
evaluateNF :: (NFData a, MonadIO m) => a -> m a
evaluateNF = evaluateWHNF . force
Expand All @@ -77,13 +75,12 @@ evaluateNF = evaluateWHNF . force
{- | Alias for @evaluateWHNF . rnf@. Similar to 'evaluateNF'
-- but discards resulting value.
>>> list = [2, 1, 3] :: [Int]
>>> let list = [1..5] :: [Int]
>>> :sprint list
list = _
>>> evaluateNF_ list
>>> :sprint list
list = [2,1,3]
list = [1,2,3,4,5]
-}
evaluateNF_ :: (NFData a, MonadIO m) => a -> m ()
evaluateNF_ = evaluateWHNF . rnf
Expand Down
2 changes: 1 addition & 1 deletion stack.yaml
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resolver: lts-14.6
resolver: nightly-2019-10-31

nix:
packages: [binutils, gmp]

0 comments on commit bfb5f60

Please sign in to comment.