the collapse functionality does not work about haskell-interactive-mode

[vasanthaganeshk]

example test case:

main :: IO ()
main = do
  blg   <- BS.readFile "blog-config.yaml"
  
  let blogconfig = decodedstr blg
  hakyll $ do
    match "images/*" $ do
        route   idRoute
        compile copyFileCompiler

    match "css/*.scss" $ do
      route $ setExtension "css"
      let compressCssItem = fmap compressCss
      compile (compressCssItem <$> sassCompiler)

    match (fromList ["about.md", "contact.md"]) $ do
        route   $ setExtension "html"
                      
        compile $ pandocCompiler
            >>= loadAndApplyTemplate "templates/default.html" (defaultCTX blogconfig)
            >>= relativizeUrls


    match "posts/*" $ do
        route $ setExtension "html"
        compile $ pandocCompiler
            >>= loadAndApplyTemplate "templates/post.html"    (postCtx blogconfig)
            >>= loadAndApplyTemplate "templates/default.html" (postCtx blogconfig)
            >>= relativizeUrls

    create ["archive.html"] $ do
        route idRoute
        compile $ do
            posts <- recentFirst =<< loadAll "posts/*"
            
            makeItem ""
                >>= loadAndApplyTemplate "templates/archive.html" (archiveCtx posts blogconfig)
                >>= loadAndApplyTemplate "templates/default.html" (archiveCtx posts blogconfig)
                >>= relativizeUrls

    match "index.html" $ do
        route idRoute
        compile $ do
            posts <- recentFirst =<< loadAll "posts/*"
            
            getResourceBody
                >>= applyAsTemplate (indexCtx posts blogconfig)
                >>= loadAndApplyTemplate "templates/default.html" (indexCtx posts blogconfig)
                >>= relativizeUrls

    match "templates/*" $ compile templateBodyCompiler

hint: it also works only on the brackets

[vasanthaganeshk]

A new PR has been sent to fix this issue

[vasanthaganeshk]

fixed