Skip to content
Browse files

Scripts for typechecking examples and tests

  • Loading branch information...
1 parent 229494a commit bbda0d289168d57eab279aa8b67eb3770f0211ae @bergmark bergmark committed
Showing with 13 additions and 3 deletions.
  1. +1 −3 examples/calc.hs
  2. +6 −0 scripts/typecheck-examples
  3. +6 −0 scripts/typecheck-tests
View
4 examples/calc.hs
@@ -5,7 +5,7 @@
--
{-# OPTIONS -fno-warn-orphans -fno-warn-type-defaults -fno-warn-unused-do-bind #-}
-{-# LANGUAGE EmptyDataDecls #-}
+{-# LANGUAGE EmptyDataDecls #-}
module Calc (main) where
@@ -105,8 +105,6 @@ onClick = ffi "%2['click'](%1)"
--------------------------------------------------------------------------------
-- Utilities
-instance (Foreign a) => Foreign (Maybe a)
-
parseDouble :: Int -> String -> Double
parseDouble = ffi "parseFloat(%2,%1) || 0"
View
6 scripts/typecheck-examples
@@ -0,0 +1,6 @@
+#!/bin/bash
+
+for i in `ls examples/*.hs`; do
+ echo $i;
+ ghc -package fay -XNoImplicitPrelude -fno-code $i
+done
View
6 scripts/typecheck-tests
@@ -0,0 +1,6 @@
+#!/bin/bash
+
+for i in `ls tests/*.hs`; do
+ echo $i;
+ ghc -package fay -XNoImplicitPrelude -fno-code -itests $i
+done

0 comments on commit bbda0d2

Please sign in to comment.
Something went wrong with that request. Please try again.