Commit d0e25c55 authored by simonpj's avatar simonpj
Browse files

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

Add comment
parent 66fb864a
......@@ -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) }
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