awson
unread,Jun 4, 2008, 5:31:58 AM6/4/08Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to HAppS
HAppS.State contains the bug that renders it unusable under Windows.
HAppS.State.Saver.Impl.File uses Char8 bytestrings. So, openFile
instead of openBinaryFile is used.
This patch cures the problem:
--- File.hs Wed Mar 5 18:48:21 2008
+++ G:\HAppS-0.9.2.x-fixed\HAppS-State\src\HAppS\State\Saver\Impl
\File.hs Wed Jun 4 12:28:52 2008
@@ -7,8 +7,8 @@
import Control.Concurrent
import Control.Exception ( try )
-import qualified Data.ByteString.Lazy.Char8 as L
-import qualified Data.ByteString.Char8 as B
+import qualified Data.ByteString.Lazy as L
+import qualified Data.ByteString as B
import System.Directory ( createDirectoryIfMissing,
renameFile, doesFileExist )
import System.IO
import System.Random ( randomIO )