aboutsummaryrefslogtreecommitdiff
path: root/haddock-test/src/Test/Haddock/Utils.hs
diff options
context:
space:
mode:
authorŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-13 12:21:45 +0200
committerŁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-22 23:40:27 +0200
commit4a4d9ecf66bcb6561f7b10c07742c4b6688332b8 (patch)
tree5e5369f8bc84006acfdf995ca74865a99e447f68 /haddock-test/src/Test/Haddock/Utils.hs
parent7196607a71a1ab1ef9e40f8eab2f27888c7290c2 (diff)
Refactor HTML test suite boilerplate to external package.
Diffstat (limited to 'haddock-test/src/Test/Haddock/Utils.hs')
-rw-r--r--haddock-test/src/Test/Haddock/Utils.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/haddock-test/src/Test/Haddock/Utils.hs b/haddock-test/src/Test/Haddock/Utils.hs
new file mode 100644
index 00000000..1d57107f
--- /dev/null
+++ b/haddock-test/src/Test/Haddock/Utils.hs
@@ -0,0 +1,8 @@
+module Test.Haddock.Utils where
+
+
+import Data.Maybe
+
+
+mlast :: [a] -> Maybe a
+mlast = listToMaybe . reverse