Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Cloogle
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
Cloogle
Cloogle
Commits
8eaa092d
Commit
8eaa092d
authored
Jan 12, 2018
by
Camil Staps
🚀
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix clean-cloogle/cloogle.org#157, again
parent
6ce3c407
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
1 deletion
+2
-1
CloogleDBFactory.icl
CloogleDBFactory.icl
+2
-1
No files found.
CloogleDBFactory.icl
View file @
8eaa092d
...
...
@@ -61,6 +61,7 @@ import CoclUtils
import
qualified
Type
as
T
from
Type
import
instance
==
Type
,
class
print
(
print
),
instance
print
Type
,
instance
print
Priority
from
TypeUnify
import
isomorphic_to
from
Cloogle
import
::
FunctionKind
(..)
from
DB
import
::
DB
,
::
Index
(..),
newDB
,
instance
==
Index
,
instance
<
Index
import
qualified
DB
...
...
@@ -224,7 +225,7 @@ where
where
[
aname
,
bname
:_]
=
map
'
CDB
'.
getName
[
a
.
ce_loc
,
b
.
ce_loc
]
instanceEq
::
(
String
,
[('
CDB
'.
Type
,
a
)],
b
)
(
String
,
[('
CDB
'.
Type
,
a
)],
b
)
->
Bool
instanceEq
(
s
,
ts
,
_)
(
s2
,
ts2
,
_)
=
s
==
s2
&&
map
fst
ts
==
map
fst
ts2
instanceEq
(
s
,
ts
,
_)
(
s2
,
ts2
,
_)
=
s
==
s2
&&
all
(
uncurry
(
isomorphic_to
))
(
zip2
(
map
fst
ts
)
(
map
fst
ts2
))
entridxs
=
zip2
[
Index
i
\\
i
<-
[
0
..]]
entries
idxfilter
f
=
[
idx
\\
(
idx
,
e
)
<-
entridxs
|
f
e
]
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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