github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 01:42:43 +03:00
Code Issues Projects Releases Wiki Activity

Remove mwc-random pin and make sure benchmarks work.

Browse Source
This commit is contained in:
Patrick Thomson 2018-12-30 01:50:33 -05:00
parent b6f042a1df
commit f15eaa18d4
3 changed files with 26 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.licenses/semantic/cabal/mwc-random.txt
View File

@ -1,7 +1,7 @@
--- ---
type: cabal type: cabal
name: mwc-random name: mwc-random
version: 0.13.3.2 version: 0.14.0.0
summary: Fast, high quality pseudo random number generation summary: Fast, high quality pseudo random number generation
homepage: https://github.com/bos/mwc-random homepage: https://github.com/bos/mwc-random
license: bsd-2-clause license: bsd-2-clause
@ -31,4 +31,4 @@ LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

12
src/Control/Abstract/Heap.hs
View File

@ -433,6 +433,7 @@ deriving instance Eq address => Eq (HeapError address resume)
deriving instance Show address => Show (HeapError address resume) deriving instance Show address => Show (HeapError address resume)
instance Show address => Show1 (HeapError address) where instance Show address => Show1 (HeapError address) where
liftShowsPrec _ _ = showsPrec liftShowsPrec _ _ = showsPrec
instance Eq address => Eq1 (HeapError address) where instance Eq address => Eq1 (HeapError address) where
liftEq _ CurrentFrameError CurrentFrameError = True liftEq _ CurrentFrameError CurrentFrameError = True
liftEq _ (LookupAddressError a) (LookupAddressError b) = a == b liftEq _ (LookupAddressError a) (LookupAddressError b) = a == b
@ -441,6 +442,17 @@ instance Eq address => Eq1 (HeapError address) where
liftEq _ (LookupFrameError a) (LookupFrameError b) = a == b liftEq _ (LookupFrameError a) (LookupFrameError b) = a == b
liftEq _ _ _ = False liftEq _ _ _ = False
instance NFData address => NFData1 (HeapError address) where
liftRnf _ x = case x of
CurrentFrameError -> ()
LookupAddressError a -> rnf x
LookupFrameError a -> x `seq` ()
LookupLinksError a -> rnf x
LookupLinkError p -> rnf x
instance (NFData address, NFData resume) => NFData (HeapError address resume) where
rnf = liftRnf rnf
throwHeapError :: ( Member (Resumable (BaseError (HeapError address))) sig throwHeapError :: ( Member (Resumable (BaseError (HeapError address))) sig
, Member (Reader ModuleInfo) sig , Member (Reader ModuleInfo) sig
, Member (Reader Span) sig , Member (Reader Span) sig

12
src/Control/Abstract/ScopeGraph.hs
View File

@ -269,6 +269,18 @@ instance Eq1 (ScopeError address) where
liftEq _ CurrentScopeError CurrentScopeError = True liftEq _ CurrentScopeError CurrentScopeError = True
liftEq _ _ _ = False liftEq _ _ _ = False
instance NFData1 (ScopeError address) where
liftRnf _ x = case x of
ScopeError d s -> rnf d `seq` rnf s
LookupScopeError -> ()
ImportReferenceError -> ()
LookupPathError d -> rnf d
LookupDeclarationScopeError d -> rnf d
CurrentScopeError -> ()
instance NFData return => NFData (ScopeError address return) where
rnf = liftRnf rnf
alloc :: (Member (Allocator address) sig, Carrier sig m) => Name -> Evaluator term address value m address alloc :: (Member (Allocator address) sig, Carrier sig m) => Name -> Evaluator term address value m address
alloc = send . flip Alloc ret alloc = send . flip Alloc ret