@@ -20,9 +20,6 @@ import Data.Functor.Const ( Const( Const ), getConst )
2020import Data.List.NonEmpty ( NonEmpty, intersperse )
2121import Prelude
2222
23−-- casing
24−import Text.Casing ( quietSnake )
25−
2623-- opaleye
2724import qualified Opaleye.Internal.HaskellDB.PrimQuery as Opaleye
2825
@@ -39,7 +36,7 @@ import Rel8.Table ( Table, Columns, Context, fromColumns, toColumns )
3936namesFromLabels :: Table Name a => a
4037namesFromLabels = namesFromLabelsWith go
4138 where
42− go = fold . intersperse "/" . fmap quietSnake
39+ go = fold . intersperse "/"
4340
4441
4542namesFromLabelsWith :: Table Name a