Browse files

Cleaned up Main example.

  • Loading branch information...
1 parent 9cd320d commit ff2d94c33f68e51bf0fab352f9a863b587785254 @tomlokhorst committed Sep 1, 2009
Showing with 11 additions and 8 deletions.
  1. +5 −1 src/HaskellPrelude.hs
  2. +6 −7 src/Main.hs
View
6 src/HaskellPrelude.hs
@@ -1,4 +1,8 @@
-{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, UndecidableInstances #-}
+{-# LANGUAGE
+ FlexibleInstances
+ , MultiParamTypeClasses
+ , UndecidableInstances
+ #-}
module HaskellPrelude where
View
13 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

0 comments on commit ff2d94c

Please sign in to comment.