From b19ae37d9c603dda1bb31b23059ef7b22bc887d8 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Mon, 28 May 2012 11:21:30 +0000
Subject: GFServer.hs: apply UTF8 encoding when saving uploaded files

This fixes a bug introduced on May 16.
---
 src/compiler/GFServer.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/compiler')

diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs
index 8d92fe179..ee7b7326f 100644
--- a/src/compiler/GFServer.hs
+++ b/src/compiler/GFServer.hs
@@ -180,8 +180,7 @@ handle state0 cache execute1
          return (state,json200 (jsonresult cwd ('/':dir++"/") cmd out files))
 
     upload files =
-      do let update (name,contents)= updateFile name contents
-         mapM_ update files
+      do mapM_ (uncurry updateFile) files
          return (state,resp204)
 
     jsonList =
@@ -354,8 +353,9 @@ contentTypeFromExt ext =
      bin t = (t,readBinaryFile)
 
 -- * IO utilities
-updateFile path new =
+updateFile path new0 =
   do old <- try $ readBinaryFile path
+     let new = encodeString new0
      when (Right new/=old) $ do logPutStrLn $ "Updating "++path
                                 seq (either (const 0) length old) $
                                     writeBinaryFile path new
-- 
cgit v1.2.3