github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-29 02:44:36 +03:00
Code Issues Projects Releases Wiki Activity

Cleanup lint messages

Browse Source
This commit is contained in:
joshvera 2016-09-14 13:31:36 -04:00
parent 1ba892e286
commit d5c04e209b
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/RandomWalkSimilarity.hs
View File

@ -116,7 +116,7 @@ rws compare as bs
-> UnmappedTerms f fields
-> UnmappedTerm f fields
-> State (Int, UnmappedTerms f fields, UnmappedTerms f fields) (Int, Free (CofreeF f (Both (Record fields))) (Patch (Cofree f (Record fields))))
insertion previous unmappedA unmappedB (UnmappedTerm j _ b) = do
insertion _ unmappedA unmappedB (UnmappedTerm j _ b) = do
put (j, unmappedA, IntMap.delete j unmappedB)
pure (j, inserting b)

1
src/Diff/Arbitrary.hs
View File

@ -10,7 +10,6 @@ import Patch
import Patch.Arbitrary ()
import Syntax
import Prologue
import Term
import Term.Arbitrary
import Test.QuickCheck hiding (Fixed)