gistfile1.txt

loadTemplates path = readDirectoryWith reader path
    >>= (free
        -- DirTree (Maybe (FilePath, Either String ByteString))
    >>> F.toList
        -- [Maybe (String, Either String ByteString)]
    >>> catMaybes
        -- [(String, Either String ByteString)]
    >>> unzip
        -- ([String], [Either String ByteString])
    >>> second partitionEithers
        -- ([String], ([String], [ByteString]))
    >>> second (first unlines)
        -- ([String], (String, [ByteString]))
    >>> subr
        -- (String, ([String], [ByteString]))
    >>> second (uncurry zip)
        -- (String, [(String, ByteString)])
    >>> second (map (first U.fromString))
        -- (String, [(ByteString, ByteString)])
    >>> second M.fromList
        -- (String, Map ByteString ByteString)
    >>> join (fmap toEither $ null . fst)
        -- Either String (Map ByteString ByteString)
    >>> return)