File: specialize-out.hs

package info (click to toggle)
haskell-ormolu 0.1.2.0-1
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 3,392 kB
  • sloc: haskell: 11,134; makefile: 7
file content (24 lines) | stat: -rw-r--r-- 490 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
foo :: Num a => a -> a
foo = id
{-# SPECIALIZE foo :: Int -> Int #-}
{-# SPECIALIZE INLINE foo :: Float -> Float #-}

{-# SPECIALIZE NOINLINE [2] bar :: Int -> Int #-}
bar :: Num a => a -> a
bar = id

baz :: Num a => a -> a
baz = id
{-# SPECIALIZE [~2] baz ::
  Int ->
  Int
  #-}

{-# SPECIALIZE fits13Bits :: Int -> Bool, Integer -> Bool #-}
{-# SPECIALIZE fits13Bits ::
  Int ->
  Bool,
  Integer -> Bool
  #-}
fits13Bits :: Integral a => a -> Bool
fits13Bits x = x >= -4096 && x < 4096