nikita-volkov/hasql
1
1
Fork 0
mirror of https://github.com/nikita-volkov/hasql.git synced 2024-11-23 02:35:33 +03:00
Code Issues Projects Releases Wiki Activity

Ditch mapLeft

Browse Source
This commit is contained in:
Nikita Volkov 2020-04-08 21:06:38 +03:00
parent e6ffbb62c2
commit 46b836796e
2 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.travis.yml
View File

@ -4,12 +4,8 @@ env:
- ghc=8.0.2 - ghc=8.0.2
- ghc=8.2.2 - ghc=8.2.2
- ghc=8.4.2 - ghc=8.4.2
- ghc=8.6.5 benchmarks=1 tests=1 - ghc=8.6.5
- ghc=8.8.1 - ghc=8.8.3 benchmarks=1 tests=1
jobs:
allow_failures:
- env: ghc=8.8.1
services: services:
- postgresql - postgresql

6
tasty/Main/Prelude.hs
View File

@ -1,7 +1,6 @@
module Main.Prelude module Main.Prelude
( (
module Exports, module Exports,
mapLeft,
) )
where where
@ -9,8 +8,3 @@ where
-- rerebase -- rerebase
------------------------- -------------------------
import Prelude as Exports import Prelude as Exports
{-# INLINE mapLeft #-}
mapLeft :: (a -> c) -> Either a b -> Either c b
mapLeft f =
either (Left . f) Right