2020-01-11 20:15:05 +00:00
|
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
|
2020-07-21 23:08:58 +00:00
|
|
|
{-|
|
|
|
|
Module : GHCup.Types.Optics
|
|
|
|
Description : GHCup optics
|
|
|
|
Copyright : (c) Julian Ospald, 2020
|
2020-07-30 18:04:02 +00:00
|
|
|
License : LGPL-3.0
|
2020-07-21 23:08:58 +00:00
|
|
|
Maintainer : hasufell@hasufell.de
|
|
|
|
Stability : experimental
|
|
|
|
Portability : POSIX
|
|
|
|
-}
|
2020-01-11 20:15:05 +00:00
|
|
|
module GHCup.Types.Optics where
|
|
|
|
|
|
|
|
import GHCup.Types
|
|
|
|
|
|
|
|
import Data.ByteString ( ByteString )
|
|
|
|
import Optics
|
|
|
|
import URI.ByteString
|
|
|
|
|
|
|
|
makePrisms ''Tool
|
|
|
|
makePrisms ''Architecture
|
|
|
|
makePrisms ''LinuxDistro
|
|
|
|
makePrisms ''Platform
|
|
|
|
makePrisms ''Tag
|
|
|
|
|
|
|
|
makeLenses ''PlatformResult
|
|
|
|
makeLenses ''DownloadInfo
|
|
|
|
makeLenses ''Tag
|
|
|
|
makeLenses ''VersionInfo
|
|
|
|
|
2020-04-25 10:06:41 +00:00
|
|
|
makeLenses ''GHCTargetVersion
|
|
|
|
|
2020-04-10 15:36:27 +00:00
|
|
|
makeLenses ''GHCupInfo
|
2020-01-11 20:15:05 +00:00
|
|
|
|
|
|
|
uriSchemeL' :: Lens' (URIRef Absolute) Scheme
|
|
|
|
uriSchemeL' = lensVL uriSchemeL
|
|
|
|
|
|
|
|
schemeBSL' :: Lens' Scheme ByteString
|
|
|
|
schemeBSL' = lensVL schemeBSL
|
|
|
|
|
|
|
|
authorityL' :: Lens' (URIRef a) (Maybe Authority)
|
|
|
|
authorityL' = lensVL authorityL
|
|
|
|
|
|
|
|
authorityHostL' :: Lens' Authority Host
|
|
|
|
authorityHostL' = lensVL authorityHostL
|
|
|
|
|
|
|
|
authorityPortL' :: Lens' Authority (Maybe Port)
|
|
|
|
authorityPortL' = lensVL authorityPortL
|
|
|
|
|
|
|
|
portNumberL' :: Lens' Port Int
|
|
|
|
portNumberL' = lensVL portNumberL
|
|
|
|
|
|
|
|
hostBSL' :: Lens' Host ByteString
|
|
|
|
hostBSL' = lensVL hostBSL
|
|
|
|
|
|
|
|
pathL' :: Lens' (URIRef a) ByteString
|
|
|
|
pathL' = lensVL pathL
|
|
|
|
|
|
|
|
queryL' :: Lens' (URIRef a) Query
|
|
|
|
queryL' = lensVL queryL
|