Create json files form simple first-line image, rest description files

gistfile1.hs

#!/usr/bin/runghc
{-# LANGUAGE NoImplicitPrelude, OverloadedStrings #-}
import Prelude (Show, IO, (++), print, String, filter)
import Data.List (isSuffixOf)
import Data.Text hiding (isSuffixOf, filter)
import Data.Text.IO
import Control.Monad (mapM_)

import qualified Data.ByteString.Lazy as BL
import System.Directory (getDirectoryContents)
import System.FilePath.Posix ((<.>), FilePath, takeBaseName)

import Data.Aeson

data Product = Product
    { image :: Text
    , description  :: Text
    } deriving Show

instance ToJSON Product where
    toJSON (Product image description) = object ["image" .= image, "description" .= description]


encodeToJson :: FilePath -> IO()
encodeToJson srcName = do
    let jsonName = takeBaseName srcName <.> "json"
    contents <- readFile srcName
    let contentLines = lines contents
    case contentLines of  -- head is unsafe!  try your code on an empty file
      (firstLine : restLines) -> BL.writeFile jsonName (encode Product {
            image = firstLine,
            description = unlines restLines
            })
      _ -> print ("error: invalid source file: " ++ srcName)


main = do
    names <- getDirectoryContents "."
    let srcNames = filter (isSuffixOf ".src") names
    mapM_ encodeToJson srcNames

Python version of the same code

#!/usr/bin/python
import os
import json

def main():
    srcFiles = [f for f in os.listdir(".") if f.endswith(".src")]
    for srcFilename in srcFiles:
        with open(srcFilename, "r") as srcFile:
            contents = srcFile.readlines()
            basename, src = os.path.splitext(srcFilename)
            with open(basename + ".json", "w") as jsonFile:
                json.dump({
                    "image": contents[0],
                    "description": " ".join(contents[1:])
                    }, jsonFile)

if __name__ == "__main__":
    main()