Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
65b3c0bf
Commit
65b3c0bf
authored
Sep 07, 2006
by
simonpj
Browse files
Use Data.Map instead of Data.FiniteMap
parent
47d5bce2
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/typecheck/should_run/tcrun021.hs
View file @
65b3c0bf
...
...
@@ -7,7 +7,7 @@
module
Main
where
import
Data.List
import
Data.
Finite
Map
import
Data.Map
class
(
Ord
oid
)
=>
Object
o
oid
|
o
->
oid
where
...
...
@@ -32,11 +32,11 @@ data LinuxObject = File [String] deriving (Eq, Show)
instance
Object
LinuxObject
LinuxObjectId
data
LinuxSecurityModel
=
LinuxSecurityModel
{
lsmObjectSet
::
Finite
Map
LinuxObjectId
LinuxObject
}
LinuxSecurityModel
{
lsmObjectSet
::
Map
LinuxObjectId
LinuxObject
}
-- Now defined in Data.
Finite
Map, don't think this affects the bug:
-- instance (Show a, Show b) => Show (
Finite
Map a b) where
-- Now defined in Data.Map, don't think this affects the bug:
-- instance (Show a, Show b) => Show (Map a b) where
-- show fm = show (fmToList fm)
instance
Show
LinuxSecurityModel
where
...
...
@@ -47,8 +47,8 @@ instance SecurityModel LinuxSecurityModel LinuxObject LinuxObjectId
data
LinuxSecurityPolicy
=
LinuxSecurityPolicy
instance
SecurityPolicy
LinuxSecurityPolicy
LinuxSecurityModel
LinuxObject
LinuxObjectId
model
::
Finite
Map
LinuxObjectId
LinuxObject
model
=
listToFM
[
(
Left
[]
,
File
[]
),
(
Left
[
"home"
],
File
[
"home"
])
]
model
::
Map
LinuxObjectId
LinuxObject
model
=
fromList
[
(
Left
[]
,
File
[]
),
(
Left
[
"home"
],
File
[
"home"
])
]
-- works
...
...
testsuite/tests/ghc-regress/typecheck/should_run/tcrun021.stdout
View file @
65b3c0bf
[(Left [],File []),(Left ["home"],File ["home"])]
fromList
[(Left [],File []),(Left ["home"],File ["home"])]
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment