Commit a1ecc2b8 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FIX] Shop Term List.

parent 10932f5b
......@@ -80,7 +80,7 @@ instance showTermList :: Show TermList where
-- TODO: Can we replace the show instance above with this?
termListName :: TermList -> String
termListName GraphTerm = "Graph List"
termListName GraphTerm = "Map List"
termListName StopTerm = "Stop List"
termListName CandidateTerm = "Candidate List"
......
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