diff --git a/src/Language/Haskell/TH/Instances.hs b/src/Language/Haskell/TH/Instances.hs
index 8fa0fbb7c..4a7f54816 100644
--- a/src/Language/Haskell/TH/Instances.hs
+++ b/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
diff --git a/src/System/Clock/Instances.hs b/src/System/Clock/Instances.hs
index afb120509..d02087f8c 100644
--- a/src/System/Clock/Instances.hs
+++ b/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
diff --git a/src/Utils/PathPiece.hs b/src/Utils/PathPiece.hs
index 45b5643e5..a92dfc374 100644
--- a/src/Utils/PathPiece.hs
+++ 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