@@ -299,7 +299,11 @@ getType :: Name -> Q (Name, Type)
299getType name = do
299getType name = do
300 info <- reify name
300 info <- reify name
301 case info of
301 case info of
302+#if MIN_VERSION_template_haskell(2,11,0)
303+ VarI origName typ _ -> return (origName, typ)
302 VarI origName typ _ _ -> return (origName, typ)
305 VarI origName typ _ _ -> return (origName, typ)
303 _ -> fail $ show name ++ " not found"
307 _ -> fail $ show name ++ " not found"
305-- | Variation on 'funD' which takes a single expression to define the function
309-- | Variation on 'funD' which takes a single expression to define the function