diff --git a/heterocephalus.cabal b/heterocephalus.cabal
--- a/heterocephalus.cabal
+++ b/heterocephalus.cabal
@@ -1,5 +1,5 @@
 name:                heterocephalus
-version:             1.0.0.1
+version:             1.0.0.2
 synopsis:            A type safe template engine for collaborating with front end development tools
 description:
     Recent front end developing tools are growing fast and have created the complicated ecosystem, and few front end developer want to use Shakespeare template instead of commonly used @node@ friendly engines such that @pug@, @slim@, @haml@, though Shakespeare template has great feature of compile time variable interpolation and type checking.
@@ -14,7 +14,7 @@
 copyright:           2016 Kadzuya Okamoto
 category:            Web
 build-type:          Simple
--- extra-source-files:
+extra-source-files:  templates/*.txt
 cabal-version:       >=1.10
 
 library
@@ -23,13 +23,13 @@
   other-modules:       Text.Hamlet.Parse
                      , Text.Heterocephalus.Parse
   build-depends:       base >= 4.7 && < 5
-                     , blaze-html
-                     , blaze-markup
-                     , containers
-                     , parsec >= 3 && < 4
-                     , shakespeare >= 2 && < 3
-                     , template-haskell >= 2.7
-                     , text >= 0.7
+                     , blaze-html >= 0.8 && < 0.9
+                     , blaze-markup >= 0.7 && < 0.8
+                     , containers >= 0.5 && < 0.6
+                     , parsec >= 3.1 && < 3.2
+                     , shakespeare >= 2.0 && < 2.1
+                     , template-haskell >= 2.7 && < 3
+                     , text >= 1.2 && < 1.3
   default-language:    Haskell2010
 
 test-suite heterocephalus-test
diff --git a/src/Text/Heterocephalus.hs b/src/Text/Heterocephalus.hs
--- a/src/Text/Heterocephalus.hs
+++ b/src/Text/Heterocephalus.hs
@@ -144,7 +144,6 @@
     [x] -> return x
     _ -> return $ DoE $ map NoBindS exps
 
--- TODO What's scope?
 docToExp :: HeterocephalusSetting -> Scope -> Doc -> Q Exp
 docToExp set scope (DocForall list idents inside) = do
   let list' = derefToExp scope list
diff --git a/src/Text/Heterocephalus/Parse.hs b/src/Text/Heterocephalus/Parse.hs
--- a/src/Text/Heterocephalus/Parse.hs
+++ b/src/Text/Heterocephalus/Parse.hs
@@ -6,6 +6,10 @@
 
 module Text.Heterocephalus.Parse where
 
+#if MIN_VERSION_base(4,9,0)
+#else
+import Control.Applicative ((<$>))
+#endif
 import Control.Monad
 import Data.Char (isUpper)
 import Data.Data
diff --git a/templates/sample.txt b/templates/sample.txt
new file mode 100644
--- /dev/null
+++ b/templates/sample.txt
@@ -0,0 +1,4 @@
+sample
+%{ forall a <- as }
+key: #{a},
+%{ endforall }