Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
817f5162
Commit
817f5162
authored
Feb 05, 1999
by
sof
Browse files
[project @ 1999-02-05 14:34:02 by sof]
'errors' caught by -fwarn-type-defaults
parent
99f24744
Changes
4
Hide whitespace changes
Inline
Side-by-side
ghc/lib/concurrent/Merge.lhs
View file @
817f5162
...
...
@@ -18,6 +18,7 @@ import Semaphore
import PrelConc
import PrelIOBase
max_buff_size :: Int
max_buff_size = 1
mergeIO :: [a] -> [a] -> IO [a]
...
...
ghc/lib/misc/SocketPrim.lhs
View file @
817f5162
...
...
@@ -368,7 +368,7 @@ accept sock@(MkSocket s family stype protocol status) = do
show currentStatus))
else do
(ptr, sz) <- allocSockAddr family
int_star <- stToIO (newIntArray (
0
,1))
int_star <- stToIO (newIntArray (
(0::Int)
,1))
stToIO (writeIntArray int_star 0 sz)
new_sock <- _ccall_ acceptSocket s ptr int_star
case (new_sock::Int) of
...
...
@@ -511,7 +511,7 @@ getPeerName :: Socket -> IO SockAddr
getPeerName (MkSocket s family _ _ _) = do
(ptr, a_sz) <- allocSockAddr family
int_star <- stToIO (newIntArray (
0
,1))
int_star <- stToIO (newIntArray (
(0::Int)
,1))
stToIO (writeIntArray int_star 0 a_sz)
status <- _ccall_ getPeerName s ptr int_star
case (status::Int) of
...
...
@@ -524,7 +524,7 @@ getSocketName :: Socket -> IO SockAddr
getSocketName (MkSocket s family _ _ _) = do
(ptr, a_sz) <- allocSockAddr family
int_star <- stToIO (newIntArray (
0
,1))
int_star <- stToIO (newIntArray (
(0::Int)
,1))
stToIO (writeIntArray int_star 0 a_sz)
rc <- _ccall_ getSockName s ptr int_star
case (rc::Int) of
...
...
ghc/lib/std/CPUTime.lhs
View file @
817f5162
...
...
@@ -72,7 +72,7 @@ getCPUTime = do
getCPUTime :: IO Integer
getCPUTime =
stToIO (newIntArray (
0
,3))
>>= \ marr ->
stToIO (newIntArray (
(0::Int)
,3)) >>= \ marr ->
stToIO (unsafeFreezeByteArray marr) >>= \ barr@(ByteArray _ frozen#) ->
_ccall_ getCPUTime barr >>= \ ptr ->
if (ptr::Addr) /= ``NULL'' then
...
...
ghc/lib/std/cbits/timezone.h
View file @
817f5162
/*
* (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
*
* $Id: timezone.h,v 1.
3
199
8/1
2/0
2
1
3:28
:0
1
s
imonm
Exp $
* $Id: timezone.h,v 1.
4
199
9/0
2/0
5
1
4:34
:0
5
s
of
Exp $
*
* Time-zone support header
*/
...
...
@@ -57,7 +57,9 @@ extern char *tzname[2];
# endif
/* ! HAVE_TZNAME */
/* Get the offset in secs from UTC, if (struct tm) doesn't supply it. */
#ifndef cygwin32_TARGET_OS
extern
TYPE_TIMEZONE
timezone
;
#endif
# if HAVE_ALTZONE
extern
time_t
altzone
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment