summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJasperVanDerJeugt <>2016-10-18 18:31:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2016-10-18 18:31:00 (GMT)
commit6a1e043bd576e935e3d5dff4712779222148612d (patch)
tree20dfc8aea3de3d9ca93538c7a9002a6a70ea7561
parent7f24bff9f5b58b23d75030e34c8379882e2b874d (diff)
version 0.3.1.00.3.1.0
-rw-r--r--CHANGELOG.md3
-rw-r--r--patat.cabal2
-rw-r--r--src/Patat/Theme.hs1
3 files changed, 5 insertions, 1 deletions
diff --git a/CHANGELOG.md b/CHANGELOG.md
index b41d315..ae6153f 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,8 @@
# Changelog
+- 0.3.1.0 (2016-10-18)
+ * Fix compilation with `lts-6.22`.
+
- 0.3.0.0 (2016-10-17)
* Add syntax highlighting support.
* Fixed slide clipping after reload.
diff --git a/patat.cabal b/patat.cabal
index 5874b0c..ac8b880 100644
--- a/patat.cabal
+++ b/patat.cabal
@@ -1,5 +1,5 @@
Name: patat
-Version: 0.3.0.0
+Version: 0.3.1.0
Synopsis: Terminal-based presentations using Pandoc
Description: Terminal-based presentations using Pandoc
License: GPL-2
diff --git a/src/Patat/Theme.hs b/src/Patat/Theme.hs
index c46c7f5..6ace99c 100644
--- a/src/Patat/Theme.hs
+++ b/src/Patat/Theme.hs
@@ -255,6 +255,7 @@ nameForTokenType =
unCapitalize (x : xs) = toLower x : xs
unCapitalize xs = xs
+ dropTok :: String -> String
dropTok str
| "Tok" `isSuffixOf` str = take (length str - 3) str
| otherwise = str