made a ghcjs buildable version

Signed-off-by: buckie <[email protected]>

Author: buckie

lens/Control/Lens.hs

@@ -13,7 +13,6 @@
 {-# LANGUAGE ViewPatterns #-}
 {-# OPTIONS_HADDOCK hide #-}
 
-
 #if HLINT
 #include "cabal_macros.h"
 #endif
@@ -206,11 +205,6 @@ data YearMonthDay = YearMonthDay
     , ymdDay :: {-# UNPACK #-}!DayOfMonth
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("ymdYear","_ymdYear"),("ymdMonth","_ymdMonth"),("ymdDay","_ymdDay")] ''YearMonthDay
-{-# INLINE _ymdYear #-}
-{-# INLINE _ymdMonth #-}
-{-# INLINE _ymdDay #-}
-
 instance Hashable YearMonthDay
 instance NFData YearMonthDay
 
@@ -231,10 +225,6 @@ data OrdinalDate = OrdinalDate
     , odDay :: {-# UNPACK #-}!DayOfYear
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("odYear","_odYear"),("odDay","_odDay")] ''OrdinalDate
-{-# INLINE _odYear #-}
-{-# INLINE _odDay #-}
-
 instance Hashable OrdinalDate
 instance NFData OrdinalDate
 
@@ -372,10 +362,6 @@ data MonthDay = MonthDay
     , mdDay :: {-# UNPACK #-}!DayOfMonth
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("mdMonth","_mdMonth"),("mdDay","_mdDay")] ''MonthDay
-{-# INLINE _mdMonth #-}
-{-# INLINE _mdDay #-}
-
 instance Hashable MonthDay
 instance NFData MonthDay
 
@@ -517,11 +503,6 @@ data WeekDate = WeekDate
         -- ^ /1 = Monday/ … /7 = Sunday/.
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("wdYear","_wdYear"),("wdWeek","_wdWeek"),("wdDay","_wdDay")] ''WeekDate
-{-# INLINE _wdYear #-}
-{-# INLINE _wdWeek #-}
-{-# INLINE _wdDay #-}
-
 instance Hashable WeekDate
 instance NFData WeekDate
 
@@ -608,11 +589,6 @@ data SundayWeek = SundayWeek
         -- ^ /0 = Sunday/.
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("swYear","_swYear"),("swWeek","_swWeek"),("swDay","_swDay")] ''SundayWeek
-{-# INLINE _swYear #-}
-{-# INLINE _swWeek #-}
-{-# INLINE _swDay #-}
-
 instance Hashable SundayWeek
 instance NFData SundayWeek
 
@@ -675,11 +651,6 @@ data MondayWeek = MondayWeek
         -- ^ /7 = Sunday/.
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("mwYear","_mwYear"),("mwWeek","_mwWeek"),("mwDay","_mwDay")] ''MondayWeek
-{-# INLINE _mwYear #-}
-{-# INLINE _mwWeek #-}
-{-# INLINE _mwDay #-}
-
 instance Hashable MondayWeek
 instance NFData MondayWeek
 
@@ -753,3 +724,15 @@ derivingUnbox "SundayWeek" [t| SundayWeek -> Int |]
 derivingUnbox "MondayWeek" [t| MondayWeek -> Int |]
     [| \ MondayWeek {..} -> shiftL mwYear 9 .|. shiftL mwWeek 3 .|. mwDay |]
     [| \ n -> MondayWeek (shiftR n 9) (shiftR n 3 .&. 0x3f) (n .&. 0x7) |]
+
+makeLensesFor [("ymdYear","_ymdYear"),("ymdMonth","_ymdMonth"),("ymdDay","_ymdDay")] ''YearMonthDay
+
+makeLensesFor [("odYear","_odYear"),("odDay","_odDay")] ''OrdinalDate
+
+makeLensesFor [("mdMonth","_mdMonth"),("mdDay","_mdDay")] ''MonthDay
+
+makeLensesFor [("wdYear","_wdYear"),("wdWeek","_wdWeek"),("wdDay","_wdDay")] ''WeekDate
+
+makeLensesFor [("swYear","_swYear"),("swWeek","_swWeek"),("swDay","_swDay")] ''SundayWeek
+
+makeLensesFor [("mwYear","_mwYear"),("mwWeek","_mwWeek"),("mwDay","_mwDay")] ''MondayWeek

src/Data/Thyme/Calendar/Internal.hs

@@ -53,12 +53,6 @@ data WeekdayOfMonth = WeekdayOfMonth
         -- ^ Day of week. /1 = Monday, 7 = Sunday/, like ISO 8601 'WeekDate'.
     } deriving (Eq, Ord, Data, Typeable, Generic, Show)
 
-makeLensesFor [("womYear","_womYear"),("womMonth","_womMonth"),("womNth","_womNth"),("womDayOfWeek","_womDayOfWeek")] ''WeekdayOfMonth
-{-# INLINE _womYear #-}
-{-# INLINE _womMonth #-}
-{-# INLINE _womNth #-}
-{-# INLINE _womDayOfWeek #-}
-
 derivingUnbox "WeekdayOfMonth"
     [t| WeekdayOfMonth -> Int |]
     [| \ WeekdayOfMonth {..} -> shiftL womYear 11 .|. shiftL womMonth 7
@@ -145,3 +139,5 @@ weekdayOfMonthValid (WeekdayOfMonth y m n wd) = (refDay .+^ s * offset)
     s = signum n
     wo = s * (wd - wd1)
     offset = (abs n - 1) * 7 + if wo < 0 then wo + 7 else wo
+
+makeLensesFor [("womYear","_womYear"),("womMonth","_womMonth"),("womNth","_womNth"),("womDayOfWeek","_womDayOfWeek")] ''WeekdayOfMonth

src/Data/Thyme/Calendar/WeekdayOfMonth.hs

@@ -328,11 +328,9 @@ data UTCView = UTCView
 
 -- | 'Lens'' for the calendar 'Day' component of a 'UTCView'.
 makeLensesFor [("utcvDay","_utcvDay")] ''UTCView
-{-# INLINE _utcvDay #-}
 
 -- | 'Lens'' for the time-of-day 'DiffTime' component of a 'UTCView'.
 makeLensesFor [("utcvDayTime","_utcvDayTime")] ''UTCView
-{-# INLINE _utcvDayTime #-}
 
 derivingUnbox "UTCView" [t| UTCView -> (Day, DiffTime) |]
     [| \ UTCView {..} -> (utcvDay, utcvDayTime) |]

src/Data/Thyme/Clock/Internal.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE RankNTypes #-}
 {-# LANGUAGE RecordWildCards #-}
@@ -499,20 +500,6 @@ makeLensesFor [ ("tpCentury","_tpCentury")
               , ("tpSecFrac","_tpSecFrac")
               , ("tpPOSIXTime","_tpPOSIXTime")
               , ("tpTimeZone","_tpTimeZone")] ''TimeParse
-{-# INLINE _tpCentury #-}
-{-# INLINE _tpCenturyYear #-}
-{-# INLINE _tpMonth #-}
-{-# INLINE _tpWeekOfYear #-}
-{-# INLINE _tpDayOfMonth #-}
-{-# INLINE _tpDayOfWeek #-}
-{-# INLINE _tpDayOfYear #-}
-{-# INLINE _tpFlags #-}
-{-# INLINE _tpHour #-}
-{-# INLINE _tpMinute #-}
-{-# INLINE _tpSecond #-}
-{-# INLINE _tpSecFrac #-}
-{-# INLINE _tpPOSIXTime #-}
-{-# INLINE _tpTimeZone #-}
 
 {-# INLINE flag #-}
 flag :: TimeFlag -> Lens' TimeParse Bool

src/Data/Thyme/Format.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE CPP #-}
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE RecordWildCards #-}
@@ -36,7 +37,6 @@ data Unit = Unit
     , plural :: ShowS
     }
 makeLensesFor [("plural","_plural")] ''Unit
-{-# INLINE _plural #-}
 
 -- | Display 'DiffTime' or 'NominalDiffTime' in a human-readable form.
 {-# INLINE humanTimeDiff #-}

src/Data/Thyme/Format/Human.hs

@@ -73,9 +73,6 @@ data TimeZone = TimeZone
     } deriving (Eq, Ord, Data, Typeable, Generic)
 
 makeLensesFor [("timeZoneMinutes","_timeZoneMinutes"),("timeZoneSummerOnly","_timeZoneSummerOnly"),("timeZoneName","_timeZoneName")] ''TimeZone
-{-# INLINE _timeZoneMinutes #-}
-{-# INLINE _timeZoneSummerOnly #-}
-{-# INLINE _timeZoneName #-}
 
 instance Hashable TimeZone
 instance NFData TimeZone
@@ -187,9 +184,6 @@ data TimeOfDay = TimeOfDay
     } deriving (Eq, Ord, Data, Typeable, Generic)
 
 makeLensesFor [("todHour","_todHour"),("todMin","_todMin"),("todSec","_todSec")] ''TimeOfDay
-{-# INLINE _todHour #-}
-{-# INLINE _todMin #-}
-{-# INLINE _todSec #-}
 
 derivingUnbox "TimeOfDay" [t| TimeOfDay -> Int64 |]
     [| \ TimeOfDay {..} -> fromIntegral (todHour .|. shiftL todMin 8)
@@ -357,8 +351,6 @@ data LocalTime = LocalTime
     } deriving (Eq, Ord, Data, Typeable, Generic)
 
 makeLensesFor [("localDay","_localDay"),("localTimeOfDay","_localTimeOfDay")] ''LocalTime
-{-# INLINE _localDay #-}
-{-# INLINE _localTimeOfDay #-}
 
 derivingUnbox "LocalTime" [t| LocalTime -> (Day, TimeOfDay) |]
     [| \ LocalTime {..} -> (localDay, localTimeOfDay) |]
@@ -466,8 +458,6 @@ data ZonedTime = ZonedTime
     } deriving (Eq, Ord, Data, Typeable, Generic)
 
 makeLensesFor [("zonedTimeToLocalTime","_zonedTimeToLocalTime"),("zonedTimeZone","_zonedTimeZone")] ''ZonedTime
-{-# INLINE _zonedTimeToLocalTime #-}
-{-# INLINE _zonedTimeZone #-}
 
 instance Hashable ZonedTime
 instance NFData ZonedTime where

src/Data/Thyme/LocalTime.hs

@@ -1,18 +1,6 @@
-resolver: lts-6.19
-
-compiler: ghcjs-0.2.0.9006019_ghc-7.10.3
-compiler-check: match-exact
-allow-different-user: true
-
-setup-info:
-  ghcjs:
-    source:
-      ghcjs-0.2.0.9006019_ghc-7.10.3:
-        url: http://ghcjs.tolysz.org/lts-6.19-9006019.tar.gz
-        sha1: ef4264d5a93b269ee4ec8f9d5139da030331d65a
-
 flags: {}
 extra-package-dbs: []
 packages:
 - '.'
 extra-deps: []
+resolver: lts-5.11