{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
module Headroom.Embedded
( configFileStub
, licenseTemplate
)
where
import Data.FileEmbed ( embedStringFile )
import Headroom.FileType ( FileType(..) )
import Headroom.License ( License(..)
, LicenseType(..)
)
import RIO
configFileStub :: IsString a => a
configFileStub :: a
configFileStub = $(embedStringFile "embedded/config-file.yaml")
licenseTemplate :: IsString a
=> License
-> a
licenseTemplate :: License -> a
licenseTemplate (License licenseType :: LicenseType
licenseType fileType :: FileType
fileType) = case LicenseType
licenseType of
Apache2 -> case FileType
fileType of
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")
Scala -> $(embedStringFile "embedded/license/apache2/scala.mustache")
BSD3 -> case FileType
fileType of
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")
Scala -> $(embedStringFile "embedded/license/bsd3/scala.mustache")
GPL2 -> case FileType
fileType of
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")
Scala -> $(embedStringFile "embedded/license/gpl2/scala.mustache")
GPL3 -> case FileType
fileType of
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")
Scala -> $(embedStringFile "embedded/license/gpl3/scala.mustache")
MIT -> case FileType
fileType of
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")
Scala -> $(embedStringFile "embedded/license/mit/scala.mustache")