@@ -299,7 +299,11 @@ getType :: Name -> Q (Name, Type)
299299getType name = do
300300 info <- reify name
301301 case info of
302+#if MIN_VERSION_template_haskell(2,11,0)
303+ VarI origName typ _ -> return (origName, typ)
304+#else
302305 VarI origName typ _ _ -> return (origName, typ)
306+#endif
303307 _ -> fail $ show name ++ " not found"
304308
305309-- | Variation on 'funD' which takes a single expression to define the function