Commit 77772bb1 authored by hdgarrood's avatar hdgarrood Committed by Marge Bot

Add type signature for TargetContents.go

These changes made it slightly easier for me to work out what was going
on in this test. I've also fixed a typo in the comments.
parent 89acbf35
Pipeline #33969 canceled with stages
in 32 seconds
......@@ -63,7 +63,7 @@ main = do
]
-- These check if on-disk modules can import in-memory targets and
-- vice-verca.
-- vice-versa.
forM_ (words "DD MM DM MD") $ \sync@[a_sync, b_sync] -> do
dep <- return $ \y ->
[( "A"
......@@ -101,6 +101,15 @@ ppSync InMemory = "M"
readSync 'D' = OnDisk
readSync 'M' = InMemory
type Mod =
( String -- module name
, String -- pragmas
, [String] -- imports
, [(String, String)] -- bindings (LHS, RHS)
, Sync -- Is the module on disk or just in memory?
)
go :: String -> [String] -> [Mod] -> Ghc ()
go label targets mods = do
liftIO $ createDirectoryIfMissing False "./outdir"
setTargets []; _ <- load LoadAllTargets
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment