Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
curry
curry-frontend
Commits
e8e265fa
Commit
e8e265fa
authored
May 24, 2016
by
Katharina Rahf
Browse files
added some quotes to showAttributes function
parent
420dfd1c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/TokenStream.hs
View file @
e8e265fa
...
...
@@ -117,8 +117,8 @@ showAttributes (CharAttributes c _) = show c
showAttributes
(
IntAttributes
i
_
)
=
show
i
showAttributes
(
FloatAttributes
f
_
)
=
show
f
showAttributes
(
StringAttributes
s
_
)
=
show
s
showAttributes
(
IdentAttributes
m
i
)
=
intercalate
"."
(
m
++
[
i
])
showAttributes
(
OptionsAttributes
t
a
)
=
show
t
++
' '
:
show
a
showAttributes
(
IdentAttributes
m
i
)
=
"
\"
"
++
(
intercalate
"."
(
m
++
[
i
])
)
++
"
\"
"
showAttributes
(
OptionsAttributes
t
a
)
=
"
\"
"
++
(
show
t
++
' '
:
show
a
)
++
"
\"
"
-- Concatenate two 'String's with a smart space in between,
-- which is only added if both 'String's are non-empty
...
...
@@ -126,3 +126,4 @@ showAttributes (OptionsAttributes t a) = show t ++ ' ' : show a
[]
+++
t
=
t
s
+++
[]
=
s
s
+++
t
=
s
++
' '
:
t
Write
Preview
Supports
Markdown
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