From 46de13256bde47c8fe48d5af2ed6f54ed85afee3 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Sun, 4 Mar 2018 23:55:23 +0100
Subject: [PATCH] Add one more testcase

---
 src-literatetests/10-tests.blt | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src-literatetests/10-tests.blt b/src-literatetests/10-tests.blt
index c57e33a..3410785 100644
--- a/src-literatetests/10-tests.blt
+++ b/src-literatetests/10-tests.blt
@@ -235,6 +235,17 @@ func
   -> ColInfo
   -> m ()
 
+#test forall context multiline with comments
+{-# LANGUAGE RankNTypes #-}
+addFlagStringParam
+  :: forall f out
+   . (Applicative f)
+  => String -- ^ short flag chars, i.e. "v" for -v
+  -> [String] -- ^ list of long names, i.e. ["verbose"]
+  -> String -- ^ param name
+  -> Flag String -- ^ properties
+  -> CmdParser f out String
+
 #test language pragma issue
 {-# LANGUAGE ScopedTypeVariables #-}
 func :: forall (a :: *) b . a -> b