[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / programs / north_lias / Bits.lhs

diff --git a/ghc/tests/programs/north_lias/Bits.lhs b/ghc/tests/programs/north_lias/Bits.lhs
deleted file mode 100644 (file)
index f0b2735..0000000
--- a/ghc/tests/programs/north_lias/Bits.lhs
+++ /dev/null
@@ -1,20 +0,0 @@
-% Bits.lhs - useful extras for testing LIAS
-
-> module Bits (
->     Cont(..),
->     showit, showits, new_line, pad
->     ) where
-
-> type Cont  =  IO () --was: Dialogue
-
-> showit :: (Show a) => a -> Cont -> Cont
-> showit x c  =  putStr (show x) >> c
-
-> showits :: String -> Cont -> Cont
-> showits x c  =  putStr x >> c
-
-> new_line :: Cont -> Cont
-> new_line  =  showits "\n"
-
-> pad :: Int -> String -> String
-> pad n cs  =  take (n - length cs) (repeat ' ') ++ cs