Delete cruft, add Reader monad to some internal ai

src/SameConstr.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DefaultSignatures, TypeOperators, FlexibleContexts #-}
+{-# LANGUAGE TypeOperators, FlexibleContexts #-}
 {- | Pulled from
 https://stackoverflow.com/questions/10112733/haskell-simple-constructor-comparison-function
  -}