module Drasil.GlassBR.References where

import Language.Drasil

import Data.Drasil.Citations (campidelli, koothoor2013, smithEtAl2007,
  smithLai2005, smithKoothoor2016, parnasClements1986)
import Data.Drasil.People (jmBracci, tlKohutek, wlBeason)

astm2009, astm2016, astm2012, beasonEtAl1998 :: Citation

citations :: BibRef
citations :: BibRef
citations = [Citation
campidelli, Citation
koothoor2013, Citation
smithEtAl2007, Citation
smithLai2005,
             Citation
smithKoothoor2016, Citation
astm2009, Citation
astm2016, Citation
astm2012, Citation
beasonEtAl1998,
             Citation
parnasClements1986]

astm2009 :: Citation
astm2009 = [CiteField] -> String -> Citation
cMisc [People -> CiteField
author [String -> Person
mononym String
"ASTM"],
  String -> CiteField
title String
"Standard Practice for Determining Load Resistance of Glass in Buildings",
  String -> CiteField
publisher String
"ASTM International",
  String -> CiteField
bookTitle String
"Standard E1300-09a",
  Int -> CiteField
year Int
2009, String -> CiteField
howPublishedU String
"https://www.astm.org"]
  String
"astm2009"

astm2016 :: Citation
astm2016 = [CiteField] -> String -> Citation
cMisc
  [ People -> CiteField
author [String -> Person
mononym String
"ASTM"],
  String -> CiteField
title String
"Standard specification for Flat Glass",
  String -> CiteField
publisher String
"ASTM International",
  String -> CiteField
address String
"West Conshohocken, PA",
  Int -> CiteField
year Int
2016, String -> CiteField
howPublishedU String
"https://doi.org/10.1520/C1036-16"]
  String
"astm2016"

astm2012 :: Citation
astm2012 = [CiteField] -> String -> Citation
cMisc
  [ People -> CiteField
author [String -> Person
mononym String
"ASTM"],
  String -> CiteField
title String
"Standard Specification for Heat-Strengthened and Fully Tempered Flat Glass",
  String -> CiteField
publisher String
"ASTM International",
  String -> CiteField
address String
"West Conshohocken, PA",
  Int -> CiteField
year Int
2012, String -> CiteField
howPublishedU String
"https://doi.org/10.1520/C1048-12E01"]
  String
"astm2012"

beasonEtAl1998 :: Citation
beasonEtAl1998 = [CiteField] -> String -> Citation
cMisc
  [ People -> CiteField
author [Person
wlBeason, Person
tlKohutek, Person
jmBracci],
  String -> CiteField
title String
"Basis for ASTME E 1300 Annealed Glass Thickness Selection Charts",
  String -> CiteField
bookTitle String
"ASCE Library",
  Month -> CiteField
month Month
Feb, Int -> CiteField
year Int
1998,
  String -> CiteField
howPublishedU String
"https://doi.org/10.1061/(ASCE)0733-9445(1998)124:2(215)"]
  String
"beasonEtAl1998"