Segmentation fault calling getCurrentDirectory/getDirectoryContents

[Einar Wolfgang Karlsen]

----------
X-Sun-Data-Type: text
X-Sun-Data-Description: text
X-Sun-Data-Name: text
X-Sun-Charset: us-ascii
X-Sun-Content-Lines: 13


When trying to retrieve either the current directory or the directory 
contents (running GHC 2.08 on Sun Solaris/Spar Ultra), the following
happens:

ewk@hydra% bug
Segmentation Fault (core dumped)


Test program enclosed.


Einar
----------
X-Sun-Data-Type: default
X-Sun-Data-Description: default
X-Sun-Data-Name: Bug.hs
X-Sun-Charset: us-ascii
X-Sun-Content-Lines: 26

{- #########################################################################

MODULE        : Bug
AUTHOR        : Einar Karlsen,  
		University of Bremen
		email:  [EMAIL PROTECTED]
DATE          : 1997
VERSION	      : alpha
DESCRIPTION   :  


   ######################################################################### -}

module Main (
	main 
	) 
where

import Directory

main = do 
	dir <- getCurrentDirectory
	fnms <- getDirectoryContents dir
	return ()