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
8b24aa71
Commit
8b24aa71
authored
Jun 25, 2013
by
Simon Peyton Jones
Browse files
Test Trac
#8011
parent
b60461e4
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/indexed-types/should_compile/Makefile
View file @
8b24aa71
...
...
@@ -31,3 +31,8 @@ T8002:
'
$(TEST_HC)
'
$(TEST_HC_OPTS)
-c
T8002b.hs
'
$(TEST_HC)
'
$(TEST_HC_OPTS)
-c
T8002a.hs
'
$(TEST_HC)
'
$(TEST_HC_OPTS)
-c
T8002.hs
T8011
:
$(RM)
T8011a.o T8011a.hi T8011.o T8011.hi
'
$(TEST_HC)
'
$(TEST_HC_OPTS)
-c
T8011a.hs
'
$(TEST_HC)
'
$(TEST_HC_OPTS)
-c
T8011.hs
testsuite/tests/indexed-types/should_compile/T8011.hs
0 → 100644
View file @
8b24aa71
{-# LANGUAGE FlexibleContexts #-}
module
T8011
(
clean
)
where
import
Data.Char
(
isAlphaNum
)
import
Data.List
(
dropWhile
)
import
T8011a
(
ToURL
(
URLT
,
toURL
)
)
clean
::
(
ToURL
url
,
Show
(
URLT
url
))
=>
url
->
String
clean
=
filter
isAlphaNum
.
show
.
toURL
testsuite/tests/indexed-types/should_compile/T8011a.hs
0 → 100644
View file @
8b24aa71
{-# LANGUAGE TypeFamilies #-}
module
T8011a
(
ToURL
(
toURL
,
nullURL
,
errorURL
,
URLT
)
)
where
class
ToURL
a
where
type
URLT
a
toURL
::
a
->
URLT
a
nullURL
::
a
errorURL
::
a
->
URLT
a
testsuite/tests/indexed-types/should_compile/all.T
View file @
8b24aa71
...
...
@@ -219,3 +219,9 @@ test('T8002',
normal
,
run_command
,
['
$MAKE -s --no-print-directory T8002
'])
# Import and export of associated types
test
('
T8011
',
normal
,
run_command
,
['
$MAKE -s --no-print-directory T8011
'])
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