ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 16:54:42 +03:00
Code Issues Projects Releases Wiki Activity

Resolve overlapping binding warnings

Browse Source
This commit is contained in:
Jonathan Daugherty 2017-01-22 12:00:47 -08:00
parent 0bea3c4f02
commit e621e59b7a
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
test/VerifyUsingMockInput.hs
View File

@ -165,8 +165,8 @@ verifyVisibleSynInputToEvent = forAll $ \(InputBlocksUsingTable gen) -> monadic
verifyCapsSynInputToEvent :: Property IO
verifyCapsSynInputToEvent = forAll $ \(InputBlocksUsingTable gen) ->
forEachOf terminalsOfInterest $ \termName -> monadic $ do
term <- setupTerm termName
forEachOf terminalsOfInterest $ \terminalName -> monadic $ do
term <- setupTerm terminalName
let table = capsClassifyMap term keysFromCapsTable
inputSeq = gen table
events = map snd inputSeq
@ -185,9 +185,9 @@ verifySpecialSynInputToEvent = forAll $ \(InputBlocksUsingTable gen) -> monadic
verifyFullSynInputToEvent :: Property IO
verifyFullSynInputToEvent = forAll $ \(InputBlocksUsingTable gen) ->
forEachOf terminalsOfInterest $ \termName -> monadic $ do
term <- setupTerm termName
let table = classifyMapForTerm termName term
forEachOf terminalsOfInterest $ \terminalName -> monadic $ do
term <- setupTerm terminalName
let table = classifyMapForTerm terminalName term
inputSeq = gen table
events = map snd inputSeq
keydowns = map (Bytes . fst) inputSeq
@ -196,9 +196,9 @@ verifyFullSynInputToEvent = forAll $ \(InputBlocksUsingTable gen) ->
verifyFullSynInputToEvent_2x :: Property IO
verifyFullSynInputToEvent_2x = forAll $ \(InputBlocksUsingTable gen) ->
forEachOf terminalsOfInterest $ \termName -> monadic $ do
term <- setupTerm termName
let table = classifyMapForTerm termName term
forEachOf terminalsOfInterest $ \terminalName -> monadic $ do
term <- setupTerm terminalName
let table = classifyMapForTerm terminalName term
inputSeq = gen table
events = concatMap ((\s -> [s,s]) . snd) inputSeq
keydowns = map (Bytes . (\s -> s ++ s) . fst) inputSeq