[project @ 2005-04-04 12:24:28 by simonpj]

Add comment

testsuite/tests/ghc-regress/typecheck/should_run/tcrun021.hs

@@ -50,5 +50,10 @@ instance SecurityPolicy LinuxSecurityPolicy LinuxSecurityModel LinuxObject Linux
 model :: FiniteMap LinuxObjectId LinuxObject
 model =  listToFM [ (Left [], File []), (Left ["home"], File ["home"]) ]
 
+
+-- 	works
+-- model :: (LinuxObjectId, LinuxObject)
+-- model =  (Left [], File [])
+
 main :: IO ()
 main = do { putStrLn (show model) }