src/Language/Haskell/TH/Instances.hs

@@ -8,7 +8,7 @@ module Language.Haskell.TH.Instances
   (
   ) where
 
-import ClassyPrelude
+--import ClassyPrelude
 
 import Language.Haskell.TH
 import Language.Haskell.TH.Syntax

src/System/Clock/Instances.hs

@@ -17,8 +17,8 @@ import Data.Fixed
 import Control.Lens
 
 
-instance Real TimeSpec where
-  toRational TimeSpec{..} = fromIntegral sec + fromIntegral nsec % 1e9
+--instance Real TimeSpec where
+--  toRational TimeSpec{..} = fromIntegral sec + fromIntegral nsec % 1e9
 
 instance Fractional TimeSpec where
   a / b = fromRational $ toRational a / toRational b

src/Utils/PathPiece.hs

@@ -186,8 +186,8 @@ derivePathPiece adt mangle joinPP = do
               | n `elem` map tvarName constructorVars = False
               | otherwise = any (elemOf types n) constructorFields
             fieldTypes = nubOrd $ concatMap constructorFields datatypeCons
-    tvarName (PlainTV n) = n
-    tvarName (KindedTV n _) = n
+    tvarName (PlainTV n _) = n
+    tvarName (KindedTV n _ _) = n
   sequence . (finDecs ++ ) . pure $
     instanceD (cxt iCxt) [t|PathPiece $typ|]
       [ funD 'toPathPiece