----------Recognize user defined types --------------------------------
notDefTypesQMonad :: Q [String] -> Q [String]
notDefTypesQMonad xs = do list <- xs
                          return (notDefTypes list)
notDefTypesQMonad :: Q [String] -> Q [String]
notDefTypesQMonad xs = do list <- xs
                          return (notDefTypes list)
notDefTypesQMonad xs = do list <- xs
                          return (notDefTypes list)