| 1 | {-# OPTIONS_GHC -cpp -fglasgow-exts #-} |
|---|
| 2 | module Unboxed where |
|---|
| 3 | |
|---|
| 4 | import GHC.IOBase ( IO(..) ) |
|---|
| 5 | import GHC.Base |
|---|
| 6 | import GHC.Float ( Double(..) ) |
|---|
| 7 | |
|---|
| 8 | readVarDouble arr = IO ( \s -> |
|---|
| 9 | case readDoubleArray# arr 0# s of { (# s, value# #) -> |
|---|
| 10 | (# s, D# value# #) } ) |
|---|
