diff options
author | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
---|---|---|
committer | Matth?us G. Chajdas <dev@anteru.net> | 2019-11-10 13:56:53 +0100 |
commit | 1dd3124a9770e11b6684e5dd1e6bc15a0aa3bc67 (patch) | |
tree | 87a171383266dd1f64196589af081bc2f8e497c3 /tests/examplefiles/example.hs | |
parent | f1c080e184dc1bbc36eaa7cd729ff3a499de568a (diff) | |
download | pygments-master.tar.gz |
Diffstat (limited to 'tests/examplefiles/example.hs')
-rw-r--r-- | tests/examplefiles/example.hs | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/tests/examplefiles/example.hs b/tests/examplefiles/example.hs deleted file mode 100644 index 764cab77..00000000 --- a/tests/examplefiles/example.hs +++ /dev/null @@ -1,41 +0,0 @@ -module ĈrazyThings where - -import "base" Data.Char -import "base" Data.Char (isControl, isSpace) -import "base" Data.Char (isControl, --isSpace) - isSpace) -import "base" Data.Char (isControl, -- isSpace) - isSpace) - -(-->) :: Num a => a -- signature -(-->) = 2 -- >implementation - ---test comment --- test comment - -main :: IO () -main = putStrLn "hello world" - -gádd x y = x + y -ádd x y = x + y - - -data ĈrazyThings = - Ĉar | - House | - Peár - deriving (Show, Eq) - --- some char literals: - -charl = ['"', 'a', '\ESC', '\'', ' '] - --- closed type families -type family Fam (a :: Type) = r :: Type where - Fam Int = True - Fam a = False - --- type literals -type IntChar = '[Int, Char] -type Falsy = 'False -type Falsy = '(10, 20, 30) |