module Descript.Misc.Build.Write.Compile.Code
  ( languageExt
  ) where

import Data.Char

-- TODO Get language extension (and other future information like
-- command for running program) from a database. Want current
-- implementation (return the language itself as an extension) to be
-- backup.

-- | Gets the file extension for the given language.
languageExt :: String -> String
languageExt = map toLower