FilesExpand file tree

 master

/

Main.hs

Copy path

BlameMore file actions

BlameMore file actions

Latest commit

 

History

History

History

46 lines (39 loc) · 1023 Bytes

 master

/

Main.hs

Top

File metadata and controls

• Code
• Blame

46 lines (39 loc) · 1023 Bytes

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

37

38

39

40

41

42

43

44

45

46

{-# LANGUAGE DataKinds #-}

{-# LANGUAGE DoAndIfThenElse #-}

{-# LANGUAGE TupleSections #-}

{-# LANGUAGE FlexibleInstances #-}

module Main (main) where

import Prelude ()

import Prelude.Compat

import qualified TestCompiler

import qualified TestDocs

import qualified TestPsci

import qualified TestPscIde

import qualified TestPscPublish

import qualified TestPrimDocs

import qualified TestUtils

import System.IO (hSetEncoding, stdout, stderr, utf8)

main :: IO ()

main = do

hSetEncoding stdout utf8

hSetEncoding stderr utf8

heading "Updating support code"

TestUtils.updateSupportCode

heading "Main compiler test suite"

TestCompiler.main

heading "Documentation test suite"

TestDocs.main

TestPrimDocs.main

heading "psc-publish test suite"

TestPscPublish.main

heading "psci test suite"

TestPsci.main

heading "psc-ide test suite"

TestPscIde.main

where

heading msg = do

putStrLn ""

putStrLn $ replicate 79 '#'

putStrLn $ "# " ++ msg

putStrLn $ replicate 79 '#'

putStrLn ""