github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00
Code Issues Projects Releases Wiki Activity

We don't even need to define our own #.

Browse Source
This commit is contained in:
Patrick Thomson 2019-09-20 16:50:25 -04:00
parent 803817bc92
commit aa61e7f565
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Prologue.hs
View File

@ -55,6 +55,7 @@ import Data.Hashable as X (Hashable, hash, hashUsing, hashWithSalt)
import Data.Hashable.Lifted as X (Hashable1(..), hashWithSalt1) import Data.Hashable.Lifted as X (Hashable1(..), hashWithSalt1)
import Data.Monoid as X (First (..), Last (..), Monoid (..)) import Data.Monoid as X (First (..), Last (..), Monoid (..))
import Data.Monoid.Generic as X import Data.Monoid.Generic as X
import Data.Profunctor.Unsafe
import Data.Proxy as X (Proxy (..)) import Data.Proxy as X (Proxy (..))
import Data.Semigroup as X (Semigroup (..)) import Data.Semigroup as X (Semigroup (..))
import Data.Traversable as X import Data.Traversable as X
@ -85,6 +86,3 @@ eitherM :: Applicative f => (a -> f b) -> Either a b -> f b
eitherM f = either f pure eitherM f = either f pure
{-# INLINE eitherM #-} {-# INLINE eitherM #-}
(#.) :: Coercible b c => (b -> c) -> (a -> b) -> (a -> c)
(#.) _ = coerce
{-# INLINE (#.) #-}