Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (17 sloc) 538 Bytes
import GHC
import Scion
import Scion.Utils
import Outputable
import GHC.SYB.Utils
main = runScion $ do
addTarget =<< guessTarget "./tests/Test001.hs" Nothing
load LoadAllTargets
[ms] <- modulesInDepOrder
mod <- typecheckModule =<< parseModule ms
let Just (grp, _, _, _, _) = renamedSource mod
let bnds = typecheckedSource mod
--io $ putStrLn $ showSDoc $ ppr $ grp
let tyclds = thingsAroundPoint (15,12) (hs_tyclds grp)
let ValBindsOut valds _ = hs_valds grp
io $ putStrLn $ showData TypeChecker 2 bnds
return ()
Jump to Line
Something went wrong with that request. Please try again.