From cc58e2d05f75710f018efd5e026686146e9b4b9d Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 12 Jun 2012 15:36:41 +0000
Subject: translator: documents can now be saved in the cloud

some other small fixes
---
 src/compiler/GFServer.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/compiler/GFServer.hs')

diff --git a/src/compiler/GFServer.hs b/src/compiler/GFServer.hs
index ee7b7326f..5b3c0d58f 100644
--- a/src/compiler/GFServer.hs
+++ b/src/compiler/GFServer.hs
@@ -165,7 +165,7 @@ handle state0 cache execute1
       case cmd of
         "make" -> make dir qs
         "upload" -> upload qs
-        "ls" -> jsonList
+        "ls" -> jsonList (maybe ".json" id $ lookup "ext" qs)
         "rm" -> look "file" rm qs
         "download" -> look "file" download qs
         "link_directories" -> look "newdir" (link_directories dir) qs
@@ -183,8 +183,8 @@ handle state0 cache execute1
       do mapM_ (uncurry updateFile) files
          return (state,resp204)
 
-    jsonList =
-        do jsons <- ls_ext "." ".json"
+    jsonList ext =
+        do jsons <- ls_ext "." ext
            return (state,json200 jsons)
 
     rm path _ | takeExtension path==".json" =
-- 
cgit v1.2.3