1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE TupleSections #-}
foo = do
liftIO $ atomicModifyIORef ciTokens ((,()) . f)
liftIO $ atomicModifyIORef ciTokens (((),) . f)
liftIO $ atomicModifyIORef ciTokens ((,) . f)
-- | Make bilateral dictionary from PoliMorf.
mkPoli :: [P.Entry] -> Poli
mkPoli = mkBila . map ((,,(),,()) <$> P.base <*> P.pos <*> P.form)
foo = baz
where
_1 = ((,Nothing,Nothing,Nothing,Nothing,Nothing) . Just <$>)
_2 = ((Nothing,,Nothing,Nothing,Nothing,Nothing) . Just <$>)
_3 = ((Nothing,Nothing,,Nothing,Nothing,Nothing) . Just <$>)
_4 = ((Nothing,Nothing,Nothing,,Nothing,Nothing) . Just <$>)
_5 = ((Nothing,Nothing,Nothing,Nothing,,Nothing) . Just <$>)
_6 = ((Nothing,Nothing,Nothing,Nothing,Nothing,) . Just <$>)
foo = (,,(),,,())
|
