Embedded.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell   #-}

{-|
Module      : Headroom.Embedded
Description : Embedded files
Copyright   : (c) 2019-2020 Vaclav Svejcar
License     : BSD-3-Clause
Maintainer  : vaclav.svejcar@gmail.com
Stability   : experimental
Portability : POSIX

Contains contents of files embedded using the "Data.FileEmbed" module.
-}

module Headroom.Embedded
  ( configFileStub
  , defaultConfig
  , licenseTemplate
  )
where

import           Data.FileEmbed                 ( embedStringFile )
import           Headroom.Types                 ( FileType(..)
                                                , LicenseType(..)
                                                )
import           RIO



-- | Content of dummy /YAML/ configuration file for the application.
configFileStub :: IsString a => a
configFileStub = $(embedStringFile "embedded/config-file.yaml")


-- | Default /YAML/ configuration.
defaultConfig :: IsString a => a
defaultConfig = $(embedStringFile "embedded/default-config.yaml")


-- | License template for given license.
licenseTemplate :: IsString a
                => LicenseType -- ^ license for which to return the template
                -> FileType    -- ^ license for which to return the template
                -> a           -- ^ template text
licenseTemplate licenseType fileType = case licenseType of
  Apache2 -> case fileType of
    C       -> $(embedStringFile "embedded/license/apache2/c.mustache")
    CPP     -> $(embedStringFile "embedded/license/apache2/cpp.mustache")
    CSS     -> $(embedStringFile "embedded/license/apache2/css.mustache")
    Haskell -> $(embedStringFile "embedded/license/apache2/haskell.mustache")
    HTML    -> $(embedStringFile "embedded/license/apache2/html.mustache")
    Java    -> $(embedStringFile "embedded/license/apache2/java.mustache")
    JS      -> $(embedStringFile "embedded/license/apache2/js.mustache")
    Rust    -> $(embedStringFile "embedded/license/apache2/rust.mustache")
    Scala   -> $(embedStringFile "embedded/license/apache2/scala.mustache")
    Shell   -> $(embedStringFile "embedded/license/apache2/shell.mustache")
  BSD3 -> case fileType of
    C       -> $(embedStringFile "embedded/license/bsd3/c.mustache")
    CPP     -> $(embedStringFile "embedded/license/bsd3/cpp.mustache")
    CSS     -> $(embedStringFile "embedded/license/bsd3/css.mustache")
    Haskell -> $(embedStringFile "embedded/license/bsd3/haskell.mustache")
    HTML    -> $(embedStringFile "embedded/license/bsd3/html.mustache")
    Java    -> $(embedStringFile "embedded/license/bsd3/java.mustache")
    JS      -> $(embedStringFile "embedded/license/bsd3/js.mustache")
    Rust    -> $(embedStringFile "embedded/license/bsd3/rust.mustache")
    Scala   -> $(embedStringFile "embedded/license/bsd3/scala.mustache")
    Shell   -> $(embedStringFile "embedded/license/bsd3/shell.mustache")
  GPL2 -> case fileType of
    C       -> $(embedStringFile "embedded/license/gpl2/c.mustache")
    CPP     -> $(embedStringFile "embedded/license/gpl2/cpp.mustache")
    CSS     -> $(embedStringFile "embedded/license/gpl2/css.mustache")
    Haskell -> $(embedStringFile "embedded/license/gpl2/haskell.mustache")
    HTML    -> $(embedStringFile "embedded/license/gpl2/html.mustache")
    Java    -> $(embedStringFile "embedded/license/gpl2/java.mustache")
    JS      -> $(embedStringFile "embedded/license/gpl2/js.mustache")
    Rust    -> $(embedStringFile "embedded/license/gpl2/rust.mustache")
    Scala   -> $(embedStringFile "embedded/license/gpl2/scala.mustache")
    Shell   -> $(embedStringFile "embedded/license/gpl2/shell.mustache")
  GPL3 -> case fileType of
    C       -> $(embedStringFile "embedded/license/gpl3/c.mustache")
    CPP     -> $(embedStringFile "embedded/license/gpl3/cpp.mustache")
    CSS     -> $(embedStringFile "embedded/license/gpl3/css.mustache")
    Haskell -> $(embedStringFile "embedded/license/gpl3/haskell.mustache")
    HTML    -> $(embedStringFile "embedded/license/gpl3/html.mustache")
    Java    -> $(embedStringFile "embedded/license/gpl3/java.mustache")
    JS      -> $(embedStringFile "embedded/license/gpl3/js.mustache")
    Rust    -> $(embedStringFile "embedded/license/gpl3/rust.mustache")
    Scala   -> $(embedStringFile "embedded/license/gpl3/scala.mustache")
    Shell   -> $(embedStringFile "embedded/license/gpl3/shell.mustache")
  MIT -> case fileType of
    C       -> $(embedStringFile "embedded/license/mit/c.mustache")
    CPP     -> $(embedStringFile "embedded/license/mit/cpp.mustache")
    CSS     -> $(embedStringFile "embedded/license/mit/css.mustache")
    Haskell -> $(embedStringFile "embedded/license/mit/haskell.mustache")
    HTML    -> $(embedStringFile "embedded/license/mit/html.mustache")
    Java    -> $(embedStringFile "embedded/license/mit/java.mustache")
    JS      -> $(embedStringFile "embedded/license/mit/js.mustache")
    Rust    -> $(embedStringFile "embedded/license/mit/rust.mustache")
    Scala   -> $(embedStringFile "embedded/license/mit/scala.mustache")
    Shell   -> $(embedStringFile "embedded/license/mit/shell.mustache")
  MPL2 -> case fileType of
    C       -> $(embedStringFile "embedded/license/mpl2/c.mustache")
    CPP     -> $(embedStringFile "embedded/license/mpl2/cpp.mustache")
    CSS     -> $(embedStringFile "embedded/license/mpl2/css.mustache")
    Haskell -> $(embedStringFile "embedded/license/mpl2/haskell.mustache")
    HTML    -> $(embedStringFile "embedded/license/mpl2/html.mustache")
    Java    -> $(embedStringFile "embedded/license/mpl2/java.mustache")
    JS      -> $(embedStringFile "embedded/license/mpl2/js.mustache")
    Rust    -> $(embedStringFile "embedded/license/mpl2/rust.mustache")
    Scala   -> $(embedStringFile "embedded/license/mpl2/scala.mustache")
    Shell   -> $(embedStringFile "embedded/license/mpl2/shell.mustache")