blob: 31fa6da52d448ad98664f566013638da8f051be6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module T20200AgdaDatatypes where
import T20200AgdaBase
import T20200AgdaPretty
reportSDoc :: IO Doc -> IO ()
reportSDoc d = render <$> d
getConstructorData :: HasConstInfo m => QName -> m Definition
getConstructorData = getConstInfo
getConType :: QName -> IO a
getConType t = do
_ <- reportSDoc $ prettyTCM t
return undefined
|