refactored packages

Signed-off-by: Matt Butcher <matt.butcher@microsoft.com>

Author: technosophos

.gitignore

@@ -1,3 +1,4 @@
 /*.wasm
+lib/*.wasm
 target/
 _scratch/

fileserver.gr

@@ -1,10 +1,11 @@
 // This is a simple Wagi static file server.
 
-import Env from "./env"
+import Env from "./lib/env"
 import Map from "map"
 import Option from "option"
 import File from "sys/file"
 import String from "string"
+import Mediatype from "./lib/mediatype"
 
 let serve = (path) => {
     File.fdWrite(File.stderr, "Fileserver: Loading file ")
@@ -26,7 +27,9 @@ let serve = (path) => {
         [],   
     )
 
-    File.fdWrite(File.stdout, "Content-Type: text/plain\n\n")
+    File.fdWrite(File.stdout, "Content-Type: ")
+    File.fdWrite(File.stdout, Mediatype.guess(path))
+    File.fdWrite(File.stdout, "\n\n")
 
     // Pipe output to STDOUT
     let rec pipe = (in, out) => {

env.gr lib/env.grenv.gr renamed to lib/env.gr

@@ -2,7 +2,7 @@ import String from "string"
 import Array from "array"
 import Option from "option"
 import Map from "map"
-import {lastIndexOf, reverse} from "./stringutil"
+import {lastIndexOf, reverse} from "./lib/stringutil"
 
 export let default_mt = "application/octet-stream"
 

mediatype.gr lib/mediatype.grmediatype.gr renamed to lib/mediatype.gr

@@ -1,9 +1,9 @@
 import String from "string"
 import Process from "sys/process"
 import File from "sys/file"
-import Env from "./env"
-import Util from "./stringutil"
-import Mediatype from "./mediatype"
+import Env from "./lib/env"
+import Util from "./lib/stringutil"
+import Mediatype from "./lib/mediatype"
 
 let mut totalErr = 0