GhcApiAstTraversals: TestModule.hs

File TestModule.hs, 441 bytes (added by claus, 6 years ago)

a test input module for APISybTesting

Line 
1{-# LANGUAGE TemplateHaskell #-}
2{-# LANGUAGE TypeFamilies #-}
3module TestModule where
4type B = Bool
5data T = T
6class C a where f :: Monad m => m a
7instance C Bool where f = do return True; return False
8g = False
9type family F a
10type instance F Int = Bool
11h :: Maybe Char -> F Int
12h (Just x) | x=='a'    = True || False
13           | otherwise = True || False
14h Nothing              = False
15th _ = ($([| True |]),[| False |])