github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Lints.

Browse Source
This commit is contained in:
Patrick Thomson 2019-12-05 17:12:21 -05:00
parent 91d0d8e019
commit 16aa229442
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
semantic-python/src/Language/Python/Failure.hs
View File

@ -1,6 +1,6 @@
{-# LANGUAGE DeriveFoldable, DeriveFunctor, DeriveGeneric, DeriveTraversable, ExistentialQuantification, {-# LANGUAGE DeriveFoldable, DeriveFunctor, DeriveTraversable, ExistentialQuantification, FlexibleContexts,
FlexibleContexts, KindSignatures, LambdaCase, MultiParamTypeClasses, QuantifiedConstraints, RankNTypes, KindSignatures, LambdaCase, MultiParamTypeClasses, QuantifiedConstraints, RankNTypes, StandaloneDeriving,
StandaloneDeriving, TypeOperators #-} TypeOperators #-}
module Language.Python.Failure module Language.Python.Failure
( Failure (..) ( Failure (..)
@ -42,7 +42,7 @@ instance RightModule Failure where
a >>=* _ = coerce a a >>=* _ = coerce a
unimplemented :: (Show ast, Member Failure sig, Carrier sig m) => ast -> m a unimplemented :: (Show ast, Member Failure sig, Carrier sig m) => ast -> m a
unimplemented x = send . Unimplemented $ x unimplemented = send . Unimplemented
invariantViolated :: (Member Failure sig, Carrier sig m) => String -> m a invariantViolated :: (Member Failure sig, Carrier sig m) => String -> m a
invariantViolated = send . InvariantViolated invariantViolated = send . InvariantViolated