diff --git a/casr-logbook.cabal b/casr-logbook.cabal
--- a/casr-logbook.cabal
+++ b/casr-logbook.cabal
@@ -1,5 +1,5 @@
 name:               casr-logbook
-version:            0.1.1
+version:            0.1.2
 license:            OtherLicense
 license-file:       LICENSE
 author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,7 @@
+0.1.2
+
+* Expose lensy values.
+
 0.1.1
 
 * Move repository from `casr-61.345` to `casr-logbook`.
diff --git a/src/Data/Aviation/Casr/Logbook/Aircraft.hs b/src/Data/Aviation/Casr/Logbook/Aircraft.hs
--- a/src/Data/Aviation/Casr/Logbook/Aircraft.hs
+++ b/src/Data/Aviation/Casr/Logbook/Aircraft.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Aircraft(
   Aircraft(..)
+, HasAircraft(..)
 , singleaircraft
 , multiaircraft
 ) where
diff --git a/src/Data/Aviation/Casr/Logbook/AircraftFlight.hs b/src/Data/Aviation/Casr/Logbook/AircraftFlight.hs
--- a/src/Data/Aviation/Casr/Logbook/AircraftFlight.hs
+++ b/src/Data/Aviation/Casr/Logbook/AircraftFlight.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.AircraftFlight(
   AircraftFlight(..)
+, HasAircraftFlight(..)
 , icusonlyflight
 , noif_icusonlyflight
 , dualonlyflight
diff --git a/src/Data/Aviation/Casr/Logbook/Aviator.hs b/src/Data/Aviation/Casr/Logbook/Aviator.hs
--- a/src/Data/Aviation/Casr/Logbook/Aviator.hs
+++ b/src/Data/Aviation/Casr/Logbook/Aviator.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Aviator(
   Aviator(..)
+, HasAviator(..)
 , aviatorwithname
 , nodobaviator
 , dobaviator
diff --git a/src/Data/Aviation/Casr/Logbook/Briefing.hs b/src/Data/Aviation/Casr/Logbook/Briefing.hs
--- a/src/Data/Aviation/Casr/Logbook/Briefing.hs
+++ b/src/Data/Aviation/Casr/Logbook/Briefing.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Briefing(
   Briefing(..)
+, HasBriefing(..)
 ) where
   
 import Control.Lens(makeClassy)
diff --git a/src/Data/Aviation/Casr/Logbook/Command.hs b/src/Data/Aviation/Casr/Logbook/Command.hs
--- a/src/Data/Aviation/Casr/Logbook/Command.hs
+++ b/src/Data/Aviation/Casr/Logbook/Command.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Command(
   Command(..)
+, AsCommand(..)
 ) where
 
 import Control.Lens(makeClassyPrisms)
diff --git a/src/Data/Aviation/Casr/Logbook/DayNight.hs b/src/Data/Aviation/Casr/Logbook/DayNight.hs
--- a/src/Data/Aviation/Casr/Logbook/DayNight.hs
+++ b/src/Data/Aviation/Casr/Logbook/DayNight.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.DayNight(
   DayNight(..)
+, HasDayNight(..)
 , day
 , night
 ) where
diff --git a/src/Data/Aviation/Casr/Logbook/Engine.hs b/src/Data/Aviation/Casr/Logbook/Engine.hs
--- a/src/Data/Aviation/Casr/Logbook/Engine.hs
+++ b/src/Data/Aviation/Casr/Logbook/Engine.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Engine(
   Engine(..)
+, AsEngine(..)
 ) where
 
 import Control.Lens(makeClassyPrisms)
diff --git a/src/Data/Aviation/Casr/Logbook/Entry.hs b/src/Data/Aviation/Casr/Logbook/Entry.hs
--- a/src/Data/Aviation/Casr/Logbook/Entry.hs
+++ b/src/Data/Aviation/Casr/Logbook/Entry.hs
@@ -6,6 +6,7 @@
 
 module Data.Aviation.Casr.Logbook.Entry(
   Entry(..)
+, AsEntry(..)
 ) where
 
 import Control.Lens(makeClassyPrisms)
diff --git a/src/Data/Aviation/Casr/Logbook/Exam.hs b/src/Data/Aviation/Casr/Logbook/Exam.hs
--- a/src/Data/Aviation/Casr/Logbook/Exam.hs
+++ b/src/Data/Aviation/Casr/Logbook/Exam.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Exam(
   Exam(..)
+, HasExam(..)
 , dayonlyexam
 ) where
 
diff --git a/src/Data/Aviation/Casr/Logbook/FlightPath.hs b/src/Data/Aviation/Casr/Logbook/FlightPath.hs
--- a/src/Data/Aviation/Casr/Logbook/FlightPath.hs
+++ b/src/Data/Aviation/Casr/Logbook/FlightPath.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.FlightPath(
   FlightPath(..)
+, HasFlightPath(..)
 , directflightpath
 , directcircuit
 , pointsatdate
diff --git a/src/Data/Aviation/Casr/Logbook/FlightPoint.hs b/src/Data/Aviation/Casr/Logbook/FlightPoint.hs
--- a/src/Data/Aviation/Casr/Logbook/FlightPoint.hs
+++ b/src/Data/Aviation/Casr/Logbook/FlightPoint.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.FlightPoint(
   FlightPoint(..)
+, HasFlightPoint(..)
 , pointatdate
 , runwayatdate
 ) where
diff --git a/src/Data/Aviation/Casr/Logbook/Location.hs b/src/Data/Aviation/Casr/Logbook/Location.hs
--- a/src/Data/Aviation/Casr/Logbook/Location.hs
+++ b/src/Data/Aviation/Casr/Logbook/Location.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Location(
   Location(..)
+, HasLocation(..)
 ) where
 
 import Control.Lens(makeClassy)
diff --git a/src/Data/Aviation/Casr/Logbook/Logbook.hs b/src/Data/Aviation/Casr/Logbook/Logbook.hs
--- a/src/Data/Aviation/Casr/Logbook/Logbook.hs
+++ b/src/Data/Aviation/Casr/Logbook/Logbook.hs
@@ -5,6 +5,7 @@
 
 module Data.Aviation.Casr.Logbook.Logbook(
   Logbook(..)
+, HasLogbook(..)
 , aviatorlogbook
 , emptylogbook
 , singleentrylogbook
diff --git a/src/Data/Aviation/Casr/Logbook/Rating.hs b/src/Data/Aviation/Casr/Logbook/Rating.hs
--- a/src/Data/Aviation/Casr/Logbook/Rating.hs
+++ b/src/Data/Aviation/Casr/Logbook/Rating.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Rating(
   Rating(..)
+, HasRating(..)
 , nodayrating
 , dayrating
 ) where
diff --git a/src/Data/Aviation/Casr/Logbook/SimulatorFlight.hs b/src/Data/Aviation/Casr/Logbook/SimulatorFlight.hs
--- a/src/Data/Aviation/Casr/Logbook/SimulatorFlight.hs
+++ b/src/Data/Aviation/Casr/Logbook/SimulatorFlight.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.SimulatorFlight(
   SimulatorFlight(..)
+, HasSimulatorFlight(..)
 , dayonlysimulator
 ) where
 
diff --git a/src/Data/Aviation/Casr/Logbook/Time.hs b/src/Data/Aviation/Casr/Logbook/Time.hs
--- a/src/Data/Aviation/Casr/Logbook/Time.hs
+++ b/src/Data/Aviation/Casr/Logbook/Time.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.Time(
   Time(..)
+, HasTime(..)
 , dayonly
 , dayandtime
 ) where
@@ -16,7 +17,7 @@
 
 data Time =
   Time {
-    _day :: Day
+    _daytime :: Day
   , _timeofday :: Maybe TimeOfDay
   } deriving (Eq, Ord, Show)
 
diff --git a/src/Data/Aviation/Casr/Logbook/TimeAmount.hs b/src/Data/Aviation/Casr/Logbook/TimeAmount.hs
--- a/src/Data/Aviation/Casr/Logbook/TimeAmount.hs
+++ b/src/Data/Aviation/Casr/Logbook/TimeAmount.hs
@@ -3,6 +3,7 @@
 
 module Data.Aviation.Casr.Logbook.TimeAmount(
   TimeAmount(..)
+, HasTimeAmount(..)
 , parttimeamount
 , zerotimeamount
 , addtimeamount