let semWaitList = filter ((== s).snd) sL

console.log

$ ajhc Hoge.hs
ajhc Hoge.hs
ajhc 0.8.0.9 (2f784567629a52e6b588f1a03b9d8df2e2a80fdf)
Finding Dependencies...
Using Ho Cache: '/home/kiwamu/.ajhc/cache'
Main                    [Hoge.hs] <~/.ajhc/cache/ogf51ld05coufe3kng715i3bo5.ho>
Fresh: <~/.ajhc/cache/ogf51ld05coufe3kng715i3bo5.ho>
Typechecking...
Compiling...
Collected Compilation...
-- TypeAnalyzeMethods
-- BoxifyProgram
-- Boxy WorkWrap
-- LambdaLift
Converting to Grin...
Updatable CAFS: 1
Constant CAFS:  0
Recursive CAFS: 0
-- Speculative Execution Optimization
-- Node Usage Analysis
-- Grin Devolution
Writing "/tmp/jhc_11182/main_code.c"
Running: gcc /tmp/jhc_11182/rts/profile.c /tmp/jhc_11182/rts/rts_support.c /tmp/jhc_11182/rts/gc_none.c /tmp/jhc_11182/rts/jhc_rts.c /tmp/jhc_11182/lib/lib_cbits.c /tmp/jhc_11182/rts/gc_jgc.c /tmp/jhc_11182/rts/stableptr.c /tmp/jhc_11182/rts/conc.c -I/tmp/jhc_11182/cbits -I/tmp/jhc_11182 /tmp/jhc_11182/main_code.c -o hs.out '-std=gnu99' -D_GNU_SOURCE '-falign-functions=4' -ffast-math -Wextra -Wall -Wno-unused-parameter -fno-strict-aliasing -DNDEBUG -O3 '-D_JHC_GC=_JHC_GC_JGC' '-D_JHC_CONC=_JHC_CONC_NONE' -lm
/tmp/jhc_11182/rts/gc_jgc.c: In function ‘gc_mark_deeper’:
/tmp/jhc_11182/rts/gc_jgc.c:110:41: warning: value computed is not used [-Wunused-value]
                                         *number_redirects++;
                                         ^
In file included from /tmp/jhc_11182/jhc_rts_header.h:61:0,
                 from /tmp/jhc_11182/main_code.c:5:
/tmp/jhc_11182/main_code.c: In function ‘ftheMain’:
/tmp/jhc_11182/rts/jhc_rts.h:54:24: warning: statement with no effect [-Wunused-value]
 #define RAW_SET_16(w)  (wptr_t)(((uintptr_t)(w) << 16) | P_VALUE)
                        ^
/tmp/jhc_11182/rts/jhc_rts.h:64:27: note: in expansion of macro ‘RAW_SET_16’
 #define SET_RAW_TAG(x)    RAW_SET_16(x)
                           ^
/tmp/jhc_11182/main_code.c:10143:17: note: in expansion of macro ‘SET_RAW_TAG’
               SET_RAW_TAG(CJhc_Prim_Prim_$LR);
               ^
/tmp/jhc_11182/main_code.c:10161:9: warning: ‘return’ with a value, in function returning void [enabled by default]
       return jhc_utf8_putchar((int)10);
       ^
$ ./hs.out
[(1,35806904)]

Hoge.hs

s = 35806904
sL = [(1,35806904)]

main = do
  let semWaitList = filter ((== s).snd) sL
  print semWaitList