Minimal test case

norm2782 · Dec 31, 2011 · 6426fd0 · 6426fd0
1 parent dce913b
commit 6426fd0
Showing 1 changed file with 7 additions and 11 deletions.
diff --git a/resources/static/hjs/testcases/alert.hs b/resources/static/hjs/testcases/alert.hs
@@ -1,16 +1,12 @@
 module Main where
-
-import Language.UHC.JScript.Assorted (alert , _alert)
-import Language.UHC.JScript.Types
 
-import Language.UHC.JScript.ECMA.String
+import Language.UHC.JScript.Assorted (alert)
+import Language.UHC.JScript.Types (fromJS)
 
-
-foreign import jscript "window.location.host"
-  windowLocationHost :: JSString
+import Language.UHC.JScript.ECMA.String (JSString)
+
+foreign import jscript "window.location.href"
+  windowHref :: JSString
 
 main :: IO ()
-main = do _alert windowLocationHost
-          alert (fromJS windowLocationHost)
-
-
+main = alert (fromJS windowHref)