Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: ef4abad735
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 37 lines (23 sloc) 0.799 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
{-# LANGUAGE NoImplicitPrelude, RankNTypes #-}

module Main where

import AwesomePrelude
import HaskellPrelude
import JsPrelude

import Prelude (Int, fromInteger)
import qualified Prelude as P

testy :: [Int]
testy = 3 `cons` (4 `cons` nil)

-- test :: P.Bool
test :: Js JsBool
test = not false && false || true

if' :: a -> a -> P.Bool -> a
if' x y b = if b then x else y

f :: (forall a. a -> a -> b -> a) -> a -> b -> a
f g a b = g a a b

ok = f if'
-- epicfail = f bool

-- hoi = maybee false (not_) (just true :: JsC1 JsMaybe (Js JsBool))

-- yo = eitherr (*5) (const 2) (right false :: JsC2 JsEither (Js JsNumber) (Js JsBool))

-- even' :: (Js JsNumber) -> (Js JsBool)
-- even' x = false

-- ahh = tuple2 (\x y -> x `and_` even' y) (ctuple2 true 3 :: JsC2 JsTuple2 (Js JsBool) (Js JsNumber))

Something went wrong with that request. Please try again.