module Drasil.GlassBR.References where

import Language.Drasil

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

rbrtsn2012, astm2009, astm2016, astm2012, beasonEtAl1998 :: Citation

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

rbrtsn2012 :: Citation
rbrtsn2012 = [CiteField] -> String -> Citation
cMisc [People -> CiteField
author [Person
jRobertson, Person
sRobertson], String -> CiteField
title
  "Volere requirements specification template edition 16",
  String -> CiteField
howPublishedU "https://pdfs.semanticscholar.org/cf57/27a59801086cbd3d14e587e09880561dbe22.pdf"
  , Int -> CiteField
year 2012]
  "rbrtsn2012"

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

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

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

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