Cleaned up Main example.

tomlokhorst · Sep 1, 2009 · ff2d94c · ff2d94c
1 parent 9cd320d
commit ff2d94c
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 8 deletions.
diff --git a/src/HaskellPrelude.hs b/src/HaskellPrelude.hs
@@ -1,4 +1,8 @@
-{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, UndecidableInstances #-}
+{-# LANGUAGE
+    FlexibleInstances
+  , MultiParamTypeClasses
+  , UndecidableInstances
+ #-}
 
 module HaskellPrelude where
 

diff --git a/src/Main.hs b/src/Main.hs
@@ -1,4 +1,7 @@
-{-# LANGUAGE NoImplicitPrelude, RankNTypes #-}
+{-# LANGUAGE
+    NoImplicitPrelude
+  , RankNTypes
+ #-}
 
 module Main where
 
@@ -10,17 +13,13 @@ import Prelude (Int)
 import qualified Prelude as P
 
 
--- Switch between these two types to see the AwesomePrelude in action!
+-- Switch between these two types and run `test` to see the AwesomePrelude in action!
 
 f :: Js JsBool -> Js JsBool
 --f :: P.Bool -> P.Bool
 f x = not x && false || true
 
-test :: Js JsBool
-test = true || false && f false
-
--- kk :: Js JsBool
--- kk = (not (true :: Js JsBool) :: Js JsBool)
+test = f true