stratux-types 0.0.9 → 0.0.10
raw patch · 4 files changed
+6/−108 lines, 4 filesdep −QuickCheckdep −directorydep −doctestdep ~aesondep ~basesetup-changedPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies removed: QuickCheck, directory, doctest, filepath, template-haskell
Dependency ranges changed: aeson, base
API changes (from Hackage documentation)
- Data.Aviation.Stratux.Types.UTCTimes: instance Data.Aviation.Stratux.Types.UTCTimes.HasUTCTimes Data.Time.Clock.UTC.UTCTime
+ Data.Aviation.Stratux.Types.UTCTimes: instance Data.Aviation.Stratux.Types.UTCTimes.HasUTCTimes Data.Time.Clock.Internal.UTCTime.UTCTime
- Data.Aviation.Stratux.Types.EmitterCategory: _EmitterCategory :: AsEmitterCategory r_aS1c => Prism' r_aS1c EmitterCategory
+ Data.Aviation.Stratux.Types.EmitterCategory: _EmitterCategory :: AsEmitterCategory r_aeHm => Prism' r_aeHm EmitterCategory
- Data.Aviation.Stratux.Types.EmitterCategory: _Heavy :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _Heavy :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _HighPerformance :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _HighPerformance :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _HighVortexLarge :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _HighVortexLarge :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _Large :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _Large :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _Light :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _Light :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _NoEmitterCategory :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _NoEmitterCategory :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _Rotorcraft :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _Rotorcraft :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: _Small :: AsEmitterCategory r_aS1c => Prism' r_aS1c ()
+ Data.Aviation.Stratux.Types.EmitterCategory: _Small :: AsEmitterCategory r_aeHm => Prism' r_aeHm ()
- Data.Aviation.Stratux.Types.EmitterCategory: class AsEmitterCategory r_aS1c where _NoEmitterCategory = (.) _EmitterCategory _NoEmitterCategory _Light = (.) _EmitterCategory _Light _Small = (.) _EmitterCategory _Small _Large = (.) _EmitterCategory _Large _HighVortexLarge = (.) _EmitterCategory _HighVortexLarge _Heavy = (.) _EmitterCategory _Heavy _HighPerformance = (.) _EmitterCategory _HighPerformance _Rotorcraft = (.) _EmitterCategory _Rotorcraft
+ Data.Aviation.Stratux.Types.EmitterCategory: class AsEmitterCategory r_aeHm
- Data.Aviation.Stratux.Types.GpsSolution: _DeadReckoning :: AsGpsSolution r_aEKQ => Prism' r_aEKQ ()
+ Data.Aviation.Stratux.Types.GpsSolution: _DeadReckoning :: AsGpsSolution r_ak1h => Prism' r_ak1h ()
- Data.Aviation.Stratux.Types.GpsSolution: _GpsSbasWaas :: AsGpsSolution r_aEKQ => Prism' r_aEKQ ()
+ Data.Aviation.Stratux.Types.GpsSolution: _GpsSbasWaas :: AsGpsSolution r_ak1h => Prism' r_ak1h ()
- Data.Aviation.Stratux.Types.GpsSolution: _GpsSbasWaasEgnos :: AsGpsSolution r_aEKQ => Prism' r_aEKQ ()
+ Data.Aviation.Stratux.Types.GpsSolution: _GpsSbasWaasEgnos :: AsGpsSolution r_ak1h => Prism' r_ak1h ()
- Data.Aviation.Stratux.Types.GpsSolution: _GpsSolution :: AsGpsSolution r_aEKQ => Prism' r_aEKQ GpsSolution
+ Data.Aviation.Stratux.Types.GpsSolution: _GpsSolution :: AsGpsSolution r_ak1h => Prism' r_ak1h GpsSolution
- Data.Aviation.Stratux.Types.GpsSolution: _NoFix :: AsGpsSolution r_aEKQ => Prism' r_aEKQ ()
+ Data.Aviation.Stratux.Types.GpsSolution: _NoFix :: AsGpsSolution r_ak1h => Prism' r_ak1h ()
- Data.Aviation.Stratux.Types.GpsSolution: _ThreeDGPS :: AsGpsSolution r_aEKQ => Prism' r_aEKQ ()
+ Data.Aviation.Stratux.Types.GpsSolution: _ThreeDGPS :: AsGpsSolution r_ak1h => Prism' r_ak1h ()
- Data.Aviation.Stratux.Types.GpsSolution: _Unknown :: AsGpsSolution r_aEKQ => Prism' r_aEKQ ()
+ Data.Aviation.Stratux.Types.GpsSolution: _Unknown :: AsGpsSolution r_ak1h => Prism' r_ak1h ()
- Data.Aviation.Stratux.Types.GpsSolution: class AsGpsSolution r_aEKQ where _GpsSbasWaas = (.) _GpsSolution _GpsSbasWaas _GpsSbasWaasEgnos = (.) _GpsSolution _GpsSbasWaasEgnos _ThreeDGPS = (.) _GpsSolution _ThreeDGPS _DeadReckoning = (.) _GpsSolution _DeadReckoning _NoFix = (.) _GpsSolution _NoFix _Unknown = (.) _GpsSolution _Unknown
+ Data.Aviation.Stratux.Types.GpsSolution: class AsGpsSolution r_ak1h
- Data.Aviation.Stratux.Types.IcaoAddr: class HasIcaoAddr c_aDh5 where icaoAddrWord0 = (.) icaoAddr icaoAddrWord0 icaoAddrWord1 = (.) icaoAddr icaoAddrWord1 icaoAddrWord2 = (.) icaoAddr icaoAddrWord2
+ Data.Aviation.Stratux.Types.IcaoAddr: class HasIcaoAddr c_aQnp
- Data.Aviation.Stratux.Types.IcaoAddr: icaoAddr :: HasIcaoAddr c_aDh5 => Lens' c_aDh5 IcaoAddr
+ Data.Aviation.Stratux.Types.IcaoAddr: icaoAddr :: HasIcaoAddr c_aQnp => Lens' c_aQnp IcaoAddr
- Data.Aviation.Stratux.Types.IcaoAddr: icaoAddrWord0 :: HasIcaoAddr c_aDh5 => Lens' c_aDh5 Word8
+ Data.Aviation.Stratux.Types.IcaoAddr: icaoAddrWord0 :: HasIcaoAddr c_aQnp => Lens' c_aQnp Word8
- Data.Aviation.Stratux.Types.IcaoAddr: icaoAddrWord1 :: HasIcaoAddr c_aDh5 => Lens' c_aDh5 Word8
+ Data.Aviation.Stratux.Types.IcaoAddr: icaoAddrWord1 :: HasIcaoAddr c_aQnp => Lens' c_aQnp Word8
- Data.Aviation.Stratux.Types.IcaoAddr: icaoAddrWord2 :: HasIcaoAddr c_aDh5 => Lens' c_aDh5 Word8
+ Data.Aviation.Stratux.Types.IcaoAddr: icaoAddrWord2 :: HasIcaoAddr c_aQnp => Lens' c_aQnp Word8
- Data.Aviation.Stratux.Types.NetworkConnection: capability :: HasNetworkConnection c_asta => Lens' c_asta Word8
+ Data.Aviation.Stratux.Types.NetworkConnection: capability :: HasNetworkConnection c_alYY => Lens' c_alYY Word8
- Data.Aviation.Stratux.Types.NetworkConnection: class HasNetworkConnection c_asta where capability = (.) networkConnection capability conn = (.) networkConnection conn ip = (.) networkConnection ip lastUnreachable = (.) networkConnection lastUnreachable port = (.) networkConnection port sleepFlag = (.) networkConnection sleepFlag
+ Data.Aviation.Stratux.Types.NetworkConnection: class HasNetworkConnection c_alYY
- Data.Aviation.Stratux.Types.NetworkConnection: conn :: HasNetworkConnection c_asta => Lens' c_asta (Maybe String)
+ Data.Aviation.Stratux.Types.NetworkConnection: conn :: HasNetworkConnection c_alYY => Lens' c_alYY (Maybe String)
- Data.Aviation.Stratux.Types.NetworkConnection: ip :: HasNetworkConnection c_asta => Lens' c_asta String
+ Data.Aviation.Stratux.Types.NetworkConnection: ip :: HasNetworkConnection c_alYY => Lens' c_alYY String
- Data.Aviation.Stratux.Types.NetworkConnection: lastUnreachable :: HasNetworkConnection c_asta => Lens' c_asta UTCTime
+ Data.Aviation.Stratux.Types.NetworkConnection: lastUnreachable :: HasNetworkConnection c_alYY => Lens' c_alYY UTCTime
- Data.Aviation.Stratux.Types.NetworkConnection: networkConnection :: HasNetworkConnection c_asta => Lens' c_asta NetworkConnection
+ Data.Aviation.Stratux.Types.NetworkConnection: networkConnection :: HasNetworkConnection c_alYY => Lens' c_alYY NetworkConnection
- Data.Aviation.Stratux.Types.NetworkConnection: port :: HasNetworkConnection c_asta => Lens' c_asta Int
+ Data.Aviation.Stratux.Types.NetworkConnection: port :: HasNetworkConnection c_alYY => Lens' c_alYY Int
- Data.Aviation.Stratux.Types.NetworkConnection: sleepFlag :: HasNetworkConnection c_asta => Lens' c_asta Bool
+ Data.Aviation.Stratux.Types.NetworkConnection: sleepFlag :: HasNetworkConnection c_alYY => Lens' c_alYY Bool
- Data.Aviation.Stratux.Types.Settings: ahrsEnabled :: HasSettings c_auW6 => Lens' c_auW6 Bool
+ Data.Aviation.Stratux.Types.Settings: ahrsEnabled :: HasSettings c_ao7q => Lens' c_ao7q Bool
- Data.Aviation.Stratux.Types.Settings: ahrsEnabled_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Bool)
+ Data.Aviation.Stratux.Types.Settings: ahrsEnabled_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Bool)
- Data.Aviation.Stratux.Types.Settings: class HasSettings c_auW6 where ahrsEnabled = (.) settings ahrsEnabled debug = (.) settings debug esEnabled = (.) settings esEnabled gpsEnabled = (.) settings gpsEnabled networkOutputs = (.) settings networkOutputs ownshipModeS = (.) settings ownshipModeS ppm = (.) settings ppm replayLog = (.) settings replayLog uatEnabled = (.) settings uatEnabled watchList = (.) settings watchList
+ Data.Aviation.Stratux.Types.Settings: class HasSettings c_ao7q
- Data.Aviation.Stratux.Types.Settings: class HasSettingsSet c_avjv where ahrsEnabled_ = (.) settingsSet ahrsEnabled_ debug_ = (.) settingsSet debug_ esEnabled_ = (.) settingsSet esEnabled_ gpsEnabled_ = (.) settingsSet gpsEnabled_ networkOutputs_ = (.) settingsSet networkOutputs_ ownshipModeS_ = (.) settingsSet ownshipModeS_ ppm_ = (.) settingsSet ppm_ replayLog_ = (.) settingsSet replayLog_ uatEnabled_ = (.) settingsSet uatEnabled_ watchList_ = (.) settingsSet watchList_
+ Data.Aviation.Stratux.Types.Settings: class HasSettingsSet c_aosX
- Data.Aviation.Stratux.Types.Settings: debug :: HasSettings c_auW6 => Lens' c_auW6 Bool
+ Data.Aviation.Stratux.Types.Settings: debug :: HasSettings c_ao7q => Lens' c_ao7q Bool
- Data.Aviation.Stratux.Types.Settings: debug_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Bool)
+ Data.Aviation.Stratux.Types.Settings: debug_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Bool)
- Data.Aviation.Stratux.Types.Settings: esEnabled :: HasSettings c_auW6 => Lens' c_auW6 Bool
+ Data.Aviation.Stratux.Types.Settings: esEnabled :: HasSettings c_ao7q => Lens' c_ao7q Bool
- Data.Aviation.Stratux.Types.Settings: esEnabled_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Bool)
+ Data.Aviation.Stratux.Types.Settings: esEnabled_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Bool)
- Data.Aviation.Stratux.Types.Settings: gpsEnabled :: HasSettings c_auW6 => Lens' c_auW6 Bool
+ Data.Aviation.Stratux.Types.Settings: gpsEnabled :: HasSettings c_ao7q => Lens' c_ao7q Bool
- Data.Aviation.Stratux.Types.Settings: gpsEnabled_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Bool)
+ Data.Aviation.Stratux.Types.Settings: gpsEnabled_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Bool)
- Data.Aviation.Stratux.Types.Settings: networkOutputs :: HasSettings c_auW6 => Lens' c_auW6 [NetworkConnection]
+ Data.Aviation.Stratux.Types.Settings: networkOutputs :: HasSettings c_ao7q => Lens' c_ao7q [NetworkConnection]
- Data.Aviation.Stratux.Types.Settings: networkOutputs_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe [NetworkConnection])
+ Data.Aviation.Stratux.Types.Settings: networkOutputs_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe [NetworkConnection])
- Data.Aviation.Stratux.Types.Settings: ownshipModeS :: HasSettings c_auW6 => Lens' c_auW6 String
+ Data.Aviation.Stratux.Types.Settings: ownshipModeS :: HasSettings c_ao7q => Lens' c_ao7q String
- Data.Aviation.Stratux.Types.Settings: ownshipModeS_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe String)
+ Data.Aviation.Stratux.Types.Settings: ownshipModeS_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe String)
- Data.Aviation.Stratux.Types.Settings: ppm :: HasSettings c_auW6 => Lens' c_auW6 Int
+ Data.Aviation.Stratux.Types.Settings: ppm :: HasSettings c_ao7q => Lens' c_ao7q Int
- Data.Aviation.Stratux.Types.Settings: ppm_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Int)
+ Data.Aviation.Stratux.Types.Settings: ppm_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Int)
- Data.Aviation.Stratux.Types.Settings: replayLog :: HasSettings c_auW6 => Lens' c_auW6 Bool
+ Data.Aviation.Stratux.Types.Settings: replayLog :: HasSettings c_ao7q => Lens' c_ao7q Bool
- Data.Aviation.Stratux.Types.Settings: replayLog_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Bool)
+ Data.Aviation.Stratux.Types.Settings: replayLog_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Bool)
- Data.Aviation.Stratux.Types.Settings: settings :: HasSettings c_auW6 => Lens' c_auW6 Settings
+ Data.Aviation.Stratux.Types.Settings: settings :: HasSettings c_ao7q => Lens' c_ao7q Settings
- Data.Aviation.Stratux.Types.Settings: settingsSet :: HasSettingsSet c_avjv => Lens' c_avjv SettingsSet
+ Data.Aviation.Stratux.Types.Settings: settingsSet :: HasSettingsSet c_aosX => Lens' c_aosX SettingsSet
- Data.Aviation.Stratux.Types.Settings: uatEnabled :: HasSettings c_auW6 => Lens' c_auW6 Bool
+ Data.Aviation.Stratux.Types.Settings: uatEnabled :: HasSettings c_ao7q => Lens' c_ao7q Bool
- Data.Aviation.Stratux.Types.Settings: uatEnabled_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe Bool)
+ Data.Aviation.Stratux.Types.Settings: uatEnabled_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe Bool)
- Data.Aviation.Stratux.Types.Settings: watchList :: HasSettings c_auW6 => Lens' c_auW6 String
+ Data.Aviation.Stratux.Types.Settings: watchList :: HasSettings c_ao7q => Lens' c_ao7q String
- Data.Aviation.Stratux.Types.Settings: watchList_ :: HasSettingsSet c_avjv => Lens' c_avjv (Maybe String)
+ Data.Aviation.Stratux.Types.Settings: watchList_ :: HasSettingsSet c_aosX => Lens' c_aosX (Maybe String)
- Data.Aviation.Stratux.Types.Situation: accuracy :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: accuracy :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: accuracyVert :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: accuracyVert :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: alt :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: alt :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: class HasSituation c_ajAq where accuracy = (.) situation accuracy accuracyVert = (.) situation accuracyVert alt = (.) situation alt geoidSep = (.) situation geoidSep gpsVertVel = (.) situation gpsVertVel groundSpeed = (.) situation groundSpeed gyroHeading = (.) situation gyroHeading heightAboveEllipsoid = (.) situation heightAboveEllipsoid lastAttitudeTime = (.) situation lastAttitudeTime lastFixLocalTime = (.) situation lastFixLocalTime lastGPSTimeTime = (.) situation lastGPSTimeTime lastGroundTrackTime = (.) situation lastGroundTrackTime lastNMEAMessage = (.) situation lastNMEAMessage lat = (.) situation lat lon = (.) situation lon nacp = (.) situation nacp pitch = (.) situation pitch pressureAlt = (.) situation pressureAlt roll = (.) situation roll satellites = (.) situation satellites satellitesSeen = (.) situation satellitesSeen satellitesTracked = (.) situation satellitesTracked temp = (.) situation temp trueCourse = (.) situation trueCourse
+ Data.Aviation.Stratux.Types.Situation: class HasSituation c_aJd5
- Data.Aviation.Stratux.Types.Situation: geoidSep :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: geoidSep :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: gpsVertVel :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: gpsVertVel :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: groundSpeed :: HasSituation c_ajAq => Lens' c_ajAq Int
+ Data.Aviation.Stratux.Types.Situation: groundSpeed :: HasSituation c_aJd5 => Lens' c_aJd5 Int
- Data.Aviation.Stratux.Types.Situation: gyroHeading :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: gyroHeading :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: heightAboveEllipsoid :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: heightAboveEllipsoid :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: lastAttitudeTime :: HasSituation c_ajAq => Lens' c_ajAq UTCTime
+ Data.Aviation.Stratux.Types.Situation: lastAttitudeTime :: HasSituation c_aJd5 => Lens' c_aJd5 UTCTime
- Data.Aviation.Stratux.Types.Situation: lastFixLocalTime :: HasSituation c_ajAq => Lens' c_ajAq UTCTime
+ Data.Aviation.Stratux.Types.Situation: lastFixLocalTime :: HasSituation c_aJd5 => Lens' c_aJd5 UTCTime
- Data.Aviation.Stratux.Types.Situation: lastGPSTimeTime :: HasSituation c_ajAq => Lens' c_ajAq UTCTime
+ Data.Aviation.Stratux.Types.Situation: lastGPSTimeTime :: HasSituation c_aJd5 => Lens' c_aJd5 UTCTime
- Data.Aviation.Stratux.Types.Situation: lastGroundTrackTime :: HasSituation c_ajAq => Lens' c_ajAq UTCTime
+ Data.Aviation.Stratux.Types.Situation: lastGroundTrackTime :: HasSituation c_aJd5 => Lens' c_aJd5 UTCTime
- Data.Aviation.Stratux.Types.Situation: lastNMEAMessage :: HasSituation c_ajAq => Lens' c_ajAq UTCTime
+ Data.Aviation.Stratux.Types.Situation: lastNMEAMessage :: HasSituation c_aJd5 => Lens' c_aJd5 UTCTime
- Data.Aviation.Stratux.Types.Situation: lat :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: lat :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: lon :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: lon :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: nacp :: HasSituation c_ajAq => Lens' c_ajAq Int
+ Data.Aviation.Stratux.Types.Situation: nacp :: HasSituation c_aJd5 => Lens' c_aJd5 Int
- Data.Aviation.Stratux.Types.Situation: pitch :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: pitch :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: pressureAlt :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: pressureAlt :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: roll :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: roll :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: satellites :: HasSituation c_ajAq => Lens' c_ajAq Int
+ Data.Aviation.Stratux.Types.Situation: satellites :: HasSituation c_aJd5 => Lens' c_aJd5 Int
- Data.Aviation.Stratux.Types.Situation: satellitesSeen :: HasSituation c_ajAq => Lens' c_ajAq Int
+ Data.Aviation.Stratux.Types.Situation: satellitesSeen :: HasSituation c_aJd5 => Lens' c_aJd5 Int
- Data.Aviation.Stratux.Types.Situation: satellitesTracked :: HasSituation c_ajAq => Lens' c_ajAq Int
+ Data.Aviation.Stratux.Types.Situation: satellitesTracked :: HasSituation c_aJd5 => Lens' c_aJd5 Int
- Data.Aviation.Stratux.Types.Situation: situation :: HasSituation c_ajAq => Lens' c_ajAq Situation
+ Data.Aviation.Stratux.Types.Situation: situation :: HasSituation c_aJd5 => Lens' c_aJd5 Situation
- Data.Aviation.Stratux.Types.Situation: temp :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: temp :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Situation: trueCourse :: HasSituation c_ajAq => Lens' c_ajAq Double
+ Data.Aviation.Stratux.Types.Situation: trueCourse :: HasSituation c_aJd5 => Lens' c_aJd5 Double
- Data.Aviation.Stratux.Types.Status: build :: HasStatus c_aHr1 => Lens' c_aHr1 String
+ Data.Aviation.Stratux.Types.Status: build :: HasStatus c_aAwm => Lens' c_aAwm String
- Data.Aviation.Stratux.Types.Status: class HasStatus c_aHr1 where build = (.) status build clock = (.) status clock connectedUsers = (.) status connectedUsers cpuTemp = (.) status cpuTemp devices = (.) status devices errors = (.) status errors esMessagesLastMinute = (.) status esMessagesLastMinute esMessagesMax = (.) status esMessagesMax gpsConnected = (.) status gpsConnected gpsSatellitesLocked = (.) status gpsSatellitesLocked gpsSatellitesSeen = (.) status gpsSatellitesSeen gpsSatellitesTracked = (.) status gpsSatellitesTracked gpsSolution = (.) status gpsSolution hardwareBuild = (.) status hardwareBuild networkDataBytesSent = (.) status networkDataBytesSent networkDataBytesSentLastSec = (.) status networkDataBytesSentLastSec networkDataBytesSentNonqueueable = (.) status networkDataBytesSentNonqueueable networkDataBytesSentNonqueueableLastSec = (.) status networkDataBytesSentNonqueueableLastSec networkDataMessagesSent = (.) status networkDataMessagesSent networkDataMessagesSentLastSec = (.) status networkDataMessagesSentLastSec networkDataMessagesSentNonqueueable = (.) status networkDataMessagesSentNonqueueable networkDataMessagesSentNonqueueableLastSec = (.) status networkDataMessagesSentNonqueueableLastSec ry835ai_connected = (.) status ry835ai_connected uatMessagesLastMinute = (.) status uatMessagesLastMinute uatMessagesMax = (.) status uatMessagesMax uptime = (.) status uptime uptimeClock = (.) status uptimeClock version = (.) status version
+ Data.Aviation.Stratux.Types.Status: class HasStatus c_aAwm
- Data.Aviation.Stratux.Types.Status: clock :: HasStatus c_aHr1 => Lens' c_aHr1 UTCTime
+ Data.Aviation.Stratux.Types.Status: clock :: HasStatus c_aAwm => Lens' c_aAwm UTCTime
- Data.Aviation.Stratux.Types.Status: connectedUsers :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: connectedUsers :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: cpuTemp :: HasStatus c_aHr1 => Lens' c_aHr1 Float
+ Data.Aviation.Stratux.Types.Status: cpuTemp :: HasStatus c_aAwm => Lens' c_aAwm Float
- Data.Aviation.Stratux.Types.Status: devices :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: devices :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: errors :: HasStatus c_aHr1 => Lens' c_aHr1 [String]
+ Data.Aviation.Stratux.Types.Status: errors :: HasStatus c_aAwm => Lens' c_aAwm [String]
- Data.Aviation.Stratux.Types.Status: esMessagesLastMinute :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: esMessagesLastMinute :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: esMessagesMax :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: esMessagesMax :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: gpsConnected :: HasStatus c_aHr1 => Lens' c_aHr1 Bool
+ Data.Aviation.Stratux.Types.Status: gpsConnected :: HasStatus c_aAwm => Lens' c_aAwm Bool
- Data.Aviation.Stratux.Types.Status: gpsSatellitesLocked :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: gpsSatellitesLocked :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: gpsSatellitesSeen :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: gpsSatellitesSeen :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: gpsSatellitesTracked :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: gpsSatellitesTracked :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: gpsSolution :: HasStatus c_aHr1 => Lens' c_aHr1 GpsSolution
+ Data.Aviation.Stratux.Types.Status: gpsSolution :: HasStatus c_aAwm => Lens' c_aAwm GpsSolution
- Data.Aviation.Stratux.Types.Status: hardwareBuild :: HasStatus c_aHr1 => Lens' c_aHr1 String
+ Data.Aviation.Stratux.Types.Status: hardwareBuild :: HasStatus c_aAwm => Lens' c_aAwm String
- Data.Aviation.Stratux.Types.Status: networkDataBytesSent :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataBytesSent :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataBytesSentLastSec :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataBytesSentLastSec :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataBytesSentNonqueueable :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataBytesSentNonqueueable :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataBytesSentNonqueueableLastSec :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataBytesSentNonqueueableLastSec :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataMessagesSent :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataMessagesSent :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataMessagesSentLastSec :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataMessagesSentLastSec :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataMessagesSentNonqueueable :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataMessagesSentNonqueueable :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: networkDataMessagesSentNonqueueableLastSec :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: networkDataMessagesSentNonqueueableLastSec :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: ry835ai_connected :: HasStatus c_aHr1 => Lens' c_aHr1 Bool
+ Data.Aviation.Stratux.Types.Status: ry835ai_connected :: HasStatus c_aAwm => Lens' c_aAwm Bool
- Data.Aviation.Stratux.Types.Status: status :: HasStatus c_aHr1 => Lens' c_aHr1 Status
+ Data.Aviation.Stratux.Types.Status: status :: HasStatus c_aAwm => Lens' c_aAwm Status
- Data.Aviation.Stratux.Types.Status: uatMessagesLastMinute :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: uatMessagesLastMinute :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: uatMessagesMax :: HasStatus c_aHr1 => Lens' c_aHr1 Int
+ Data.Aviation.Stratux.Types.Status: uatMessagesMax :: HasStatus c_aAwm => Lens' c_aAwm Int
- Data.Aviation.Stratux.Types.Status: uptime :: HasStatus c_aHr1 => Lens' c_aHr1 Int64
+ Data.Aviation.Stratux.Types.Status: uptime :: HasStatus c_aAwm => Lens' c_aAwm Int64
- Data.Aviation.Stratux.Types.Status: uptimeClock :: HasStatus c_aHr1 => Lens' c_aHr1 UTCTime
+ Data.Aviation.Stratux.Types.Status: uptimeClock :: HasStatus c_aAwm => Lens' c_aAwm UTCTime
- Data.Aviation.Stratux.Types.Status: version :: HasStatus c_aHr1 => Lens' c_aHr1 String
+ Data.Aviation.Stratux.Types.Status: version :: HasStatus c_aAwm => Lens' c_aAwm String
- Data.Aviation.Stratux.Types.TargetType: _Adsb :: AsTargetType r_afCg => Prism' r_afCg ()
+ Data.Aviation.Stratux.Types.TargetType: _Adsb :: AsTargetType r_ay1x => Prism' r_ay1x ()
- Data.Aviation.Stratux.Types.TargetType: _Adsr :: AsTargetType r_afCg => Prism' r_afCg ()
+ Data.Aviation.Stratux.Types.TargetType: _Adsr :: AsTargetType r_ay1x => Prism' r_ay1x ()
- Data.Aviation.Stratux.Types.TargetType: _ModeS :: AsTargetType r_afCg => Prism' r_afCg ()
+ Data.Aviation.Stratux.Types.TargetType: _ModeS :: AsTargetType r_ay1x => Prism' r_ay1x ()
- Data.Aviation.Stratux.Types.TargetType: _TargetType :: AsTargetType r_afCg => Prism' r_afCg TargetType
+ Data.Aviation.Stratux.Types.TargetType: _TargetType :: AsTargetType r_ay1x => Prism' r_ay1x TargetType
- Data.Aviation.Stratux.Types.TargetType: _Tisb :: AsTargetType r_afCg => Prism' r_afCg ()
+ Data.Aviation.Stratux.Types.TargetType: _Tisb :: AsTargetType r_ay1x => Prism' r_ay1x ()
- Data.Aviation.Stratux.Types.TargetType: _TisbS :: AsTargetType r_afCg => Prism' r_afCg ()
+ Data.Aviation.Stratux.Types.TargetType: _TisbS :: AsTargetType r_ay1x => Prism' r_ay1x ()
- Data.Aviation.Stratux.Types.TargetType: class AsTargetType r_afCg where _ModeS = (.) _TargetType _ModeS _Adsb = (.) _TargetType _Adsb _Adsr = (.) _TargetType _Adsr _TisbS = (.) _TargetType _TisbS _Tisb = (.) _TargetType _Tisb
+ Data.Aviation.Stratux.Types.TargetType: class AsTargetType r_ay1x
- Data.Aviation.Stratux.Types.Traffic: addressType :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: addressType :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: age :: HasTraffic c_aWbS => Lens' c_aWbS Double
+ Data.Aviation.Stratux.Types.Traffic: age :: HasTraffic c_aRIM => Lens' c_aRIM Double
- Data.Aviation.Stratux.Types.Traffic: altIsGnss :: HasTraffic c_aWbS => Lens' c_aWbS Bool
+ Data.Aviation.Stratux.Types.Traffic: altIsGnss :: HasTraffic c_aRIM => Lens' c_aRIM Bool
- Data.Aviation.Stratux.Types.Traffic: altitude :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: altitude :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: bearing :: HasTraffic c_aWbS => Lens' c_aWbS Double
+ Data.Aviation.Stratux.Types.Traffic: bearing :: HasTraffic c_aRIM => Lens' c_aRIM Double
- Data.Aviation.Stratux.Types.Traffic: class HasTraffic c_aWbS where addressType = (.) traffic addressType age = (.) traffic age altIsGnss = (.) traffic altIsGnss altitude = (.) traffic altitude bearing = (.) traffic bearing distanceToTrafficFromOwnship = (.) traffic distanceToTrafficFromOwnship emitterCategory = (.) traffic emitterCategory extrapolatedPosition = (.) traffic extrapolatedPosition gnssDiffFromBaroAlt = (.) traffic gnssDiffFromBaroAlt lastAltitude = (.) traffic lastAltitude lastGnssDiff = (.) traffic lastGnssDiff lastGnssDiffAltitude = (.) traffic lastGnssDiffAltitude lastSeen = (.) traffic lastSeen lastSource = (.) traffic lastSource lastSpeed = (.) traffic lastSpeed latitude = (.) traffic latitude longitude = (.) traffic longitude navigationAccuracyCategoryForPosition = (.) traffic navigationAccuracyCategoryForPosition navigationIntegrityCategory = (.) traffic navigationIntegrityCategory onGround = (.) traffic onGround positionValid = (.) traffic positionValid signalLevel = (.) traffic signalLevel speed = (.) traffic speed speedValid = (.) traffic speedValid tail = (.) traffic tail targetType = (.) traffic targetType timestamp = (.) traffic timestamp track = (.) traffic track verticalVelocity = (.) traffic verticalVelocity
+ Data.Aviation.Stratux.Types.Traffic: class HasTraffic c_aRIM
- Data.Aviation.Stratux.Types.Traffic: distanceToTrafficFromOwnship :: HasTraffic c_aWbS => Lens' c_aWbS Double
+ Data.Aviation.Stratux.Types.Traffic: distanceToTrafficFromOwnship :: HasTraffic c_aRIM => Lens' c_aRIM Double
- Data.Aviation.Stratux.Types.Traffic: emitterCategory :: HasTraffic c_aWbS => Lens' c_aWbS EmitterCategory
+ Data.Aviation.Stratux.Types.Traffic: emitterCategory :: HasTraffic c_aRIM => Lens' c_aRIM EmitterCategory
- Data.Aviation.Stratux.Types.Traffic: extrapolatedPosition :: HasTraffic c_aWbS => Lens' c_aWbS Bool
+ Data.Aviation.Stratux.Types.Traffic: extrapolatedPosition :: HasTraffic c_aRIM => Lens' c_aRIM Bool
- Data.Aviation.Stratux.Types.Traffic: gnssDiffFromBaroAlt :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: gnssDiffFromBaroAlt :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: lastAltitude :: HasTraffic c_aWbS => Lens' c_aWbS UTCTime
+ Data.Aviation.Stratux.Types.Traffic: lastAltitude :: HasTraffic c_aRIM => Lens' c_aRIM UTCTime
- Data.Aviation.Stratux.Types.Traffic: lastGnssDiff :: HasTraffic c_aWbS => Lens' c_aWbS UTCTime
+ Data.Aviation.Stratux.Types.Traffic: lastGnssDiff :: HasTraffic c_aRIM => Lens' c_aRIM UTCTime
- Data.Aviation.Stratux.Types.Traffic: lastGnssDiffAltitude :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: lastGnssDiffAltitude :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: lastSeen :: HasTraffic c_aWbS => Lens' c_aWbS UTCTime
+ Data.Aviation.Stratux.Types.Traffic: lastSeen :: HasTraffic c_aRIM => Lens' c_aRIM UTCTime
- Data.Aviation.Stratux.Types.Traffic: lastSource :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: lastSource :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: lastSpeed :: HasTraffic c_aWbS => Lens' c_aWbS UTCTime
+ Data.Aviation.Stratux.Types.Traffic: lastSpeed :: HasTraffic c_aRIM => Lens' c_aRIM UTCTime
- Data.Aviation.Stratux.Types.Traffic: latitude :: HasTraffic c_aWbS => Lens' c_aWbS Double
+ Data.Aviation.Stratux.Types.Traffic: latitude :: HasTraffic c_aRIM => Lens' c_aRIM Double
- Data.Aviation.Stratux.Types.Traffic: longitude :: HasTraffic c_aWbS => Lens' c_aWbS Double
+ Data.Aviation.Stratux.Types.Traffic: longitude :: HasTraffic c_aRIM => Lens' c_aRIM Double
- Data.Aviation.Stratux.Types.Traffic: navigationAccuracyCategoryForPosition :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: navigationAccuracyCategoryForPosition :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: navigationIntegrityCategory :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: navigationIntegrityCategory :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: onGround :: HasTraffic c_aWbS => Lens' c_aWbS Bool
+ Data.Aviation.Stratux.Types.Traffic: onGround :: HasTraffic c_aRIM => Lens' c_aRIM Bool
- Data.Aviation.Stratux.Types.Traffic: positionValid :: HasTraffic c_aWbS => Lens' c_aWbS Bool
+ Data.Aviation.Stratux.Types.Traffic: positionValid :: HasTraffic c_aRIM => Lens' c_aRIM Bool
- Data.Aviation.Stratux.Types.Traffic: signalLevel :: HasTraffic c_aWbS => Lens' c_aWbS Double
+ Data.Aviation.Stratux.Types.Traffic: signalLevel :: HasTraffic c_aRIM => Lens' c_aRIM Double
- Data.Aviation.Stratux.Types.Traffic: speed :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: speed :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: speedValid :: HasTraffic c_aWbS => Lens' c_aWbS Bool
+ Data.Aviation.Stratux.Types.Traffic: speedValid :: HasTraffic c_aRIM => Lens' c_aRIM Bool
- Data.Aviation.Stratux.Types.Traffic: tail :: HasTraffic c_aWbS => Lens' c_aWbS String
+ Data.Aviation.Stratux.Types.Traffic: tail :: HasTraffic c_aRIM => Lens' c_aRIM String
- Data.Aviation.Stratux.Types.Traffic: targetType :: HasTraffic c_aWbS => Lens' c_aWbS TargetType
+ Data.Aviation.Stratux.Types.Traffic: targetType :: HasTraffic c_aRIM => Lens' c_aRIM TargetType
- Data.Aviation.Stratux.Types.Traffic: timestamp :: HasTraffic c_aWbS => Lens' c_aWbS UTCTime
+ Data.Aviation.Stratux.Types.Traffic: timestamp :: HasTraffic c_aRIM => Lens' c_aRIM UTCTime
- Data.Aviation.Stratux.Types.Traffic: track :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: track :: HasTraffic c_aRIM => Lens' c_aRIM Int
- Data.Aviation.Stratux.Types.Traffic: traffic :: HasTraffic c_aWbS => Lens' c_aWbS Traffic
+ Data.Aviation.Stratux.Types.Traffic: traffic :: HasTraffic c_aRIM => Lens' c_aRIM Traffic
- Data.Aviation.Stratux.Types.Traffic: verticalVelocity :: HasTraffic c_aWbS => Lens' c_aWbS Int
+ Data.Aviation.Stratux.Types.Traffic: verticalVelocity :: HasTraffic c_aRIM => Lens' c_aRIM Int
Files
- Setup.hs +2/−0
- Setup.lhs +0/−44
- stratux-types.cabal +4/−32
- test/doctests.hs +0/−32
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
− Setup.lhs
@@ -1,44 +0,0 @@-#!/usr/bin/env runhaskell-\begin{code}-{-# OPTIONS_GHC -Wall #-}-module Main (main) where--import Data.List ( nub )-import Data.Version ( showVersion )-import Distribution.Package ( PackageName(PackageName), PackageId, InstalledPackageId, packageVersion, packageName )-import Distribution.PackageDescription ( PackageDescription(), TestSuite(..) )-import Distribution.Simple ( defaultMainWithHooks, UserHooks(..), simpleUserHooks )-import Distribution.Simple.Utils ( rewriteFile, createDirectoryIfMissingVerbose )-import Distribution.Simple.BuildPaths ( autogenModulesDir )-import Distribution.Simple.Setup ( BuildFlags(buildVerbosity), fromFlag )-import Distribution.Simple.LocalBuildInfo ( withLibLBI, withTestLBI, LocalBuildInfo(), ComponentLocalBuildInfo(componentPackageDeps) )-import Distribution.Verbosity ( Verbosity )-import System.FilePath ( (</>) )--main :: IO ()-main = defaultMainWithHooks simpleUserHooks- { buildHook = \pkg lbi hooks flags -> do- generateBuildModule (fromFlag (buildVerbosity flags)) pkg lbi- buildHook simpleUserHooks pkg lbi hooks flags- }--generateBuildModule :: Verbosity -> PackageDescription -> LocalBuildInfo -> IO ()-generateBuildModule verbosity pkg lbi = do- let dir = autogenModulesDir lbi- createDirectoryIfMissingVerbose verbosity True dir- withLibLBI pkg lbi $ \_ libcfg -> do- withTestLBI pkg lbi $ \suite suitecfg -> do- rewriteFile (dir </> "Build_" ++ testName suite ++ ".hs") $ unlines- [ "module Build_" ++ testName suite ++ " where"- , "deps :: [String]"- , "deps = " ++ (show $ formatdeps (testDeps libcfg suitecfg))- ]- where- formatdeps = map (formatone . snd)- formatone p = case packageName p of- PackageName n -> n ++ "-" ++ showVersion (packageVersion p)--testDeps :: ComponentLocalBuildInfo -> ComponentLocalBuildInfo -> [(InstalledPackageId, PackageId)]-testDeps xs ys = nub $ componentPackageDeps xs ++ componentPackageDeps ys--\end{code}
stratux-types.cabal view
@@ -1,5 +1,5 @@ name: stratux-types-version: 0.0.9+version: 0.0.10 license: BSD3 license-file: LICENCE author: Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>@@ -11,24 +11,21 @@ homepage: https://github.com/tonymorris/stratux-types bug-reports: https://github.com/tonymorris/stratux-types/issues cabal-version: >= 1.10-build-type: Custom+build-type: Simple extra-source-files: changelog.md source-repository head type: git location: git@github.com:tonymorris/stratux-types.git -flag small_base- description: Choose the new, split-up base package.- library default-language: Haskell2010 build-depends:- base < 5 && >= 4+ base >= 4 && < 6 , lens >= 4.0 && < 5.0 - , aeson >= 1.0 && < 1.1+ , aeson >= 1.0 , time >= 1.4 && < 2.0 , bytestring >= 0.10 && < 1.0 , scientific >= 0.3 && < 1.0@@ -56,28 +53,3 @@ Data.Aviation.Stratux.Types.Traffic Data.Aviation.Stratux.Types.UTCTimes Data.Aviation.Stratux.Types.Word8s--test-suite doctests- type:- exitcode-stdio-1.0-- main-is:- doctests.hs-- default-language:- Haskell2010-- build-depends:- base < 5 && >= 3- , doctest >= 0.9.7- , filepath >= 1.3- , directory >= 1.1- , QuickCheck >= 2.0- , template-haskell >= 2.8-- ghc-options:- -Wall- -threaded-- hs-source-dirs:- test
− test/doctests.hs
@@ -1,32 +0,0 @@-module Main where--import Build_doctests (deps)-import Control.Applicative-import Control.Monad-import Data.List-import System.Directory-import System.FilePath-import Test.DocTest--main ::- IO ()-main =- getSources >>= \sources -> doctest $- "-isrc"- : "-idist/build/autogen"- : "-optP-include"- : "-optPdist/build/autogen/cabal_macros.h"- : "-hide-all-packages"- : map ("-package="++) deps ++ sources--getSources :: IO [FilePath]-getSources = filter (isSuffixOf ".hs") <$> go "src"- where- go dir = do- (dirs, files) <- getFilesAndDirectories dir- (files ++) . concat <$> mapM go dirs--getFilesAndDirectories :: FilePath -> IO ([FilePath], [FilePath])-getFilesAndDirectories dir = do- c <- map (dir </>) . filter (`notElem` ["..", "."]) <$> getDirectoryContents dir- (,) <$> filterM doesDirectoryExist c <*> filterM doesFileExist c